diff --git a/library/PDFSTREAM b/library/PDFSTREAM
index 9ec59d23..1534669e 100644
--- a/library/PDFSTREAM
+++ b/library/PDFSTREAM
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "23-Sep-2023 22:54:26" {WMEDLEY}<library>PDFSTREAM.;49 10763  
+(FILECREATED " 1-Oct-2023 20:53:05" {WMEDLEY}<library>PDFSTREAM.;54 13917  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS PS-TO-PDF OPEN-PDF-STREAM)
+      :CHANGES-TO (FNS SEE-PDF)
 
-      :PREVIOUS-DATE "23-Sep-2023 15:38:55" {WMEDLEY}<library>PDFSTREAM.;48)
+      :PREVIOUS-DATE " 1-Oct-2023 15:29:33" {WMEDLEY}<library>PDFSTREAM.;53)
 
 
 (PRETTYCOMPRINT PDFSTREAMCOMS)
@@ -15,7 +15,7 @@
        ((FILES (SYSLOAD)
                POSTSCRIPTSTREAM)
         [COMS                                                (* ; "Hook into hardcopy interface")
-              (ADDVARS [PRINTERTYPES ((PDF)
+              [ADDVARS [PRINTERTYPES ((PDF)
                                       (CANPRINT (PDF))
                                       (STATUS TRUE)
                                       (PROPERTIES NILL)
@@ -29,10 +29,10 @@
                      (IMAGESTREAMTYPES (PDF (OPENSTREAM OPEN-PDF-STREAM)
                                             (FONTCREATE POSTSCRIPT.FONTCREATE)
                                             (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
-                                            (CREATECHARSET \CREATECHARSET.PSC)))
-                     (VARS (DEFAULTPRINTERTYPE 'PDF))
-                     (FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
-                     (P (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT]
+                                            (CREATECHARSET \CREATECHARSET.PSC]
+              (VARS (DEFAULTPRINTERTYPE 'PDF))
+              (FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
+              (P (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT]
         
         (* ;; "")
 
@@ -43,7 +43,8 @@
                                                              (* ; "Mac with ghostscript?")
         (ALISTS (PDF-CONVERTER-TEMPLATES ps2pdf pstopdf))
         (GLOBALVARS PDFCONVERTER PDF-CONVERTER-TEMPLATES)
-        (FNS OPEN-PDF-STREAM CLOSE-PDF-STREAM PS-TO-PDF)))
+        (FNS OPEN-PDF-STREAM CLOSE-PDF-STREAM PS-TO-PDF)
+        (FNS SEE-PDF)))
 
 (FILESLOAD (SYSLOAD)
        POSTSCRIPTSTREAM)
@@ -70,11 +71,56 @@
                                 (FONTSAVAILABLE POSTSCRIPT.FONTSAVAILABLE)
                                 (CREATECHARSET \CREATECHARSET.PSC)))
 
-(ADDTOVAR VARS (DEFAULTPRINTERTYPE 'PDF))
+(RPAQQ DEFAULTPRINTERTYPE PDF)
+(DEFINEQ
 
-(ADDTOVAR FNS PDFFILEP PDF.HARDCOPYW PDF.TEXT PDF.TEDIT)
+(PDFFILEP
+  [LAMBDA (FILE)                                             (* ; "Edited 23-Jun-2023 14:43 by rmk")
+                                                             (* ; "Edited  5-Mar-93 21:40 by rmk:")
+                                                             (* ; "Edited 14-Jan-93 10:56 by jds")
+    (OR (CL:MEMBER (UNPACKFILENAME.STRING FILE 'EXTENSION)
+               '("PDF")
+               :TEST
+               (FUNCTION STRING-EQUAL))
+        (CL:WHEN (STREAMP FILE)
+            (SETFILEPTR FILE 0)
+            (PROG1 (AND (EQ (BIN FILE)
+                            (CHARCODE %%))
+                        (EQ (BIN FILE)
+                            (CHARCODE P))
+                        (EQ (BIN FILE)
+                            (CHARCODE D))
+                        (EQ (BIN FILE)
+                            (CHARCODE F)))
+                   (SETFILEPTR FILE 0)))])
 
-(ADDTOVAR P (FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT))
+(PDF.HARDCOPYW
+  [LAMBDA (PDFFILE BITMAP SCALEFACTOR REGION Landscape? TITLE)
+                                                             (* ; "Edited 24-Jul-2023 10:37 by rmk")
+                                                             (* ; "Edited 23-Jun-2023 13:28 by rmk")
+                                                             (* ; "Edited  6-Mar-2023 22:43 by rmk")
+    (LET ((PSTTMP (PACKFILENAME 'EXTENSION 'TMPPS 'BODY PDFFILE)))
+         (PS-TO-PDF (POSTSCRIPT.HARDCOPYW PSTTMP BITMAP SCALEFACTOR REGION Landscape? TITLE)
+                PDFFILE])
+
+(PDF.TEXT
+  [LAMBDA (FILE PDFFILE FONTS HEADING TABS)                  (* ; "Edited  1-Oct-2023 15:24 by rmk")
+                                                             (* ; "Edited 23-Jun-2023 13:23 by rmk")
+                                                             (* ; "Edited  7-Mar-2023 08:39 by rmk")
+    (TEXTTOIMAGEFILE FILE PDFFILE 'PDF FONTS HEADING TABS `(REGION ,POSTSCRIPT.DEFAULT.PAGEREGION 
+                                                                  ROTATION ,(NOT (NOT 
+                                                                        POSTSCRIPT.TEXTFILE.LANDSCAPE
+                                                                                      ])
+
+(PDF.TEDIT
+  [LAMBDA (FILE PDFFILE)                                     (* ; "Edited 23-Jun-2023 13:22 by rmk")
+                                                             (* ; "Edited  7-Mar-2023 08:39 by rmk")
+    (LET ((TSTREAM (OPENTEXTSTREAM FILE)))
+         (TEDIT.FORMAT.HARDCOPY FILE PDFFILE T NIL NIL NIL 'PDF)
+         (CLOSEF TSTREAM])
+)
+
+(FONTPROFILE.ADDDEVICE 'PDF 'POSTSCRIPT)
 
 
 
@@ -154,7 +200,8 @@
              PSSTREAM)])
 
 (PS-TO-PDF
-  [LAMBDA (PSFILE PDFFILE DONTDELETE)                        (* ; "Edited 23-Sep-2023 22:54 by rmk")
+  [LAMBDA (PSFILE PDFFILE DONTDELETE)                        (* ; "Edited  1-Oct-2023 15:18 by rmk")
+                                                             (* ; "Edited 23-Sep-2023 22:54 by rmk")
                                                              (* ; "Edited 23-Jul-2023 22:30 by rmk")
                                                              (* ; "Edited 24-Jun-2023 15:01 by rmk")
                                                              (* ; "Edited 16-Jul-2022 13:06 by rmk")
@@ -167,11 +214,11 @@
     (* ;; "DONTDELETE is just for debugging, keeps the /tmp/ files")
 
     (SETQ PSFILE (FULLNAME (TRUEFILENAME PSFILE)))
+    (CL:UNLESS (INFILEP PSFILE)
+           (ERROR "NO PS FILE TO CONVERT"))
     (SETQ PDFFILE (if PDFFILE
                       then (TRUEFILENAME PDFFILE)
                     else (PACKFILENAME 'EXTENSION 'pdf 'BODY PSFILE)))
-    (CL:UNLESS (INFILEP PSFILE)
-           (ERROR "NO PS FILE TO CONVERT"))
     (LET ((ERRORFILE (PACKFILENAME 'EXTENSION 'error 'BODY PSFILE))
           COMPLETIONCODE)
 
@@ -210,7 +257,20 @@
                 (ERROR "Cannot create PDF file for " PDFFILE))
          PDFFILE])
 )
+(DEFINEQ
+
+(SEE-PDF
+  [LAMBDA (PDFFILE)                                          (* ; "Edited  1-Oct-2023 20:47 by rmk")
+                                                             (* ; "Edited 26-Sep-2023 16:52 by rmk")
+
+    (* ;; "Good for Mac, not sure about Windows etc.")
+
+    (ShellCommand (CONCAT "open -a Preview " (UNIX-FILE-NAME (PACKFILENAME 'BODY PDFFILE 'EXTENSION
+                                                                    'PDF)
+                                                    'INPUT])
+)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3630 10740 (OPEN-PDF-STREAM 3640 . 5818) (CLOSE-PDF-STREAM 5820 . 7107) (PS-TO-PDF 7109
- . 10738)))))
+  (FILEMAP (NIL (3078 5692 (PDFFILEP 3088 . 4002) (PDF.HARDCOPYW 4004 . 4602) (PDF.TEXT 4604 . 5321) (
+PDF.TEDIT 5323 . 5690)) (6136 13355 (OPEN-PDF-STREAM 6146 . 8324) (CLOSE-PDF-STREAM 8326 . 9613) (
+PS-TO-PDF 9615 . 13353)) (13356 13894 (SEE-PDF 13366 . 13892)))))
 STOP
diff --git a/library/PDFSTREAM.LCOM b/library/PDFSTREAM.LCOM
index 78e86fb0..12da811e 100644
Binary files a/library/PDFSTREAM.LCOM and b/library/PDFSTREAM.LCOM differ
