diff --git a/library/PDFSTREAM b/library/PDFSTREAM
index 0940f416..19551015 100644
--- a/library/PDFSTREAM
+++ b/library/PDFSTREAM
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "12-Dec-2025 19:16:43" {WMEDLEY}<library>PDFSTREAM.;92 17210  
+(FILECREATED "24-Dec-2025 23:32:51" {WMEDLEY}<library>PDFSTREAM.;96 17857  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (VARS PDFSTREAMCOMS)
+      :CHANGES-TO (FNS SEE-PDF)
 
-      :PREVIOUS-DATE "26-Nov-2025 11:37:30" {WMEDLEY}<library>PDFSTREAM.;90)
+      :PREVIOUS-DATE "24-Dec-2025 11:11:50" {WMEDLEY}<library>PDFSTREAM.;93)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -52,12 +52,12 @@
 (* ; "Hook into hardcopy interface")
 
 
-(ADDTOVAR PRINTFILETYPES
-          (PDF (TEST PDFFILEP)
-               (EXTENSION (PDF))
-               (CONVERSION (TEXT POSTSCRIPT.TEXT TEDIT TEDIT.TO.IMAGEFILE POSTSCRIPT PDF.POSTSCRIPT))
-               (BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
-               (BITMAPFILE (PDF.HARDCOPYW FILE BITMAP SCALEFACTOR REGION ROTATION TITLE))))
+(ADDTOVAR PRINTFILETYPES (PDF (TEST PDFFILEP)
+                              (EXTENSION (PDF))
+                              (CONVERSION (TEXT POSTSCRIPT.TEXT POSTSCRIPT PDF.POSTSCRIPT))
+                              (BITMAPSCALE POSTSCRIPT.BITMAPSCALE)
+                              (BITMAPFILE (PDF.HARDCOPYW IMAGEFILE BITMAP SCALEFACTOR REGION ROTATION
+                                                 TITLE))))
 
 (ADDTOVAR IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM)
                                 (FONTCREATE POSTSCRIPT.FONTCREATE)
@@ -311,18 +311,26 @@
 (DEFINEQ
 
 (SEE-PDF
-  [LAMBDA (PDFFILE)                                          (* ; "Edited 30-Jul-2025 18:00 by rmk")
+  [LAMBDA (PDFFILE)                                          (* ; "Edited 24-Dec-2025 23:32 by rmk")
+                                                             (* ; "Edited 30-Jul-2025 18:00 by rmk")
                                                              (* ; "Edited 25-Dec-2024 14:25 by rmk")
                                                              (* ; "Edited  1-Oct-2023 20:47 by rmk")
                                                              (* ; "Edited 26-Sep-2023 16:52 by rmk")
 
     (* ;; "Use the ShellOpener for this machine to open the PDF file outside of Medley")
 
-    (LET [(FOUND (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF]
-         (if FOUND
+    (LET (FOUND)
+         [SETQ FOUND (if (AND (STREAMP PDFFILE)
+                              (PDFFILEP PDFFILE))
+                         then (PACKFILENAME 'HOST 'UNIX 'BODY (UNIX-FILE-NAME PDFFILE 'INPUT
+                                                                     'pdf
+                                                                     'pdf))
+                       else (FINDFILE-WITH-EXTENSIONS PDFFILE NIL '(PDF]
+         (if (NOT FOUND)
+             then (ERROR "FILE NOT FOUND" PDFFILE)
+           elseif (PDFFILEP FOUND)
              then (ShellOpen FOUND)
-                  FOUND
-           else (ERROR "FILE NOT FOUND" PDFFILE])
+           else (ERROR FOUND "is not a PDF file"])
 )
 
 (ADDTOVAR FB.SEE.METHODS (PDFFILEP SEE-PDF))
@@ -344,9 +352,9 @@
 
 (\PDFINIT)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2415 5995 (PDFFILEP 2425 . 3702) (PDF.HARDCOPYW 3704 . 4274) (PDF.TEXT 4276 . 4993) (
-PDF.TEDIT 4995 . 5571) (PDF.FONTSAVAILABLE 5573 . 5993)) (6435 15507 (OPEN-PDF-STREAM 6445 . 7595) (
-CLOSE-PDF-STREAM 7597 . 9945) (PS-TO-PDF 9947 . 15505)) (15508 15764 (PDF.POSTSCRIPT 15518 . 15762)) (
-15765 16523 (SEE-PDF 15775 . 16521)) (16574 16858 (PDFCONVERTER 16584 . 16856)) (16859 17171 (\PDFINIT
- 16869 . 17169)))))
+  (FILEMAP (NIL (2487 6067 (PDFFILEP 2497 . 3774) (PDF.HARDCOPYW 3776 . 4346) (PDF.TEXT 4348 . 5065) (
+PDF.TEDIT 5067 . 5643) (PDF.FONTSAVAILABLE 5645 . 6065)) (6507 15579 (OPEN-PDF-STREAM 6517 . 7667) (
+CLOSE-PDF-STREAM 7669 . 10017) (PS-TO-PDF 10019 . 15577)) (15580 15836 (PDF.POSTSCRIPT 15590 . 15834))
+ (15837 17170 (SEE-PDF 15847 . 17168)) (17221 17505 (PDFCONVERTER 17231 . 17503)) (17506 17818 (
+\PDFINIT 17516 . 17816)))))
 STOP
diff --git a/library/PDFSTREAM.LCOM b/library/PDFSTREAM.LCOM
index 3fe20de1..aa9f716e 100644
Binary files a/library/PDFSTREAM.LCOM and b/library/PDFSTREAM.LCOM differ
