diff --git a/lispusers/COMPAREDIRECTORIES b/lispusers/COMPAREDIRECTORIES
index c37aeb31..b9f3ee30 100644
--- a/lispusers/COMPAREDIRECTORIES
+++ b/lispusers/COMPAREDIRECTORIES
@@ -1,12 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "20-Jan-2025 11:00:54" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;263 131893 
+(FILECREATED "26-Mar-2025 09:41:31" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;267 133447 
 
       :EDIT-BY rmk
 
       :CHANGES-TO (VARS COMPAREDIRECTORIESCOMS)
+                  (FNS CD-MENUFN)
 
-      :PREVIOUS-DATE "23-Dec-2024 23:54:13" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;262)
+      :PREVIOUS-DATE "18-Feb-2025 23:37:14" {WMEDLEY}<lispusers>COMPAREDIRECTORIES.;264)
 
 
 (PRETTYCOMPRINT COMPAREDIRECTORIESCOMS)
@@ -52,6 +53,7 @@
                    CDTABLEBROWSER.HEADING.REPAINTFN)
               (FNS CDTABLEBROWSER.WHENSELECTEDFN CD.COMMANDSELECTEDFN CD-MENUFN CD-COMPARE-FILES 
                    CDBROWSER-COPY CDBROWSER-DELETE-FILE CD-SWAPDIRS)
+              (INITVARS (CD-LINELENGTH NIL))
               (VARS CDTABLEBROWSER.MENUITEMS)
               (FILES (SYSLOAD)
                      COMPARESOURCES COMPARETEXT)
@@ -1960,6 +1962,10 @@
 (CD-MENUFN
   [LAMBDA (TBITEM MENUITEM CDBROWSER KEY)
 
+    (* ;; "Edited 26-Mar-2025 09:39 by rmk")
+
+    (* ;; "Edited 18-Feb-2025 23:36 by rmk")
+
     (* ;; "Edited 23-Dec-2024 23:53 by rmk")
 
     (* ;; "Edited 21-May-2022 21:59 by rmk")
@@ -1974,7 +1980,10 @@
     (CL:WHEN (MEMB MENUITEM '(Compare See See% right See% both See% left))
                                                              (* ; "Close the previous ones")
         (CLOSEWITH.DOIT WINDOW))
-    (LET (CHILDREN)
+    (LET ((SOURCEWIDTH (ITIMES (OR CD-LINELENGTH TEDIT.SOURCE.LINELENGTH)
+                              (CHARWIDTH (CHARCODE SPACE)
+                                     DEFAULTFONT)))
+          CHILDREN)
          (SETQ CHILDREN
           (SELECTQ MENUITEM
               (Compare (IF (AND FILE1 FILE2)
@@ -1987,7 +1996,13 @@
                              THEN (if (PDFFILEP FILE1)
                                       then (SEE-PDF FILE1)
                                     else (TEDIT-SEE FILE1 (RELCREATEREGION
-                                                           700 700 'RIGHT 'TOP `(,WINDOW 0.5)
+                                                           (CL:IF (LISPSOURCEFILEP FILE1)
+                                                               SOURCEWIDTH
+                                                               700)
+                                                           700
+                                                           'RIGHT
+                                                           'TOP
+                                                           `(,WINDOW 0.5)
                                                            (IPLUS (FETCH (REGION BOTTOM)
                                                                      OF (WINDOWPROP WINDOW
                                                                                'REGION))
@@ -2001,7 +2016,13 @@
                               THEN (if (PDFFILEP FILE2)
                                        then (SEE-PDF FILE2)
                                      else (TEDIT-SEE FILE2 (RELCREATEREGION
-                                                            700 700 'LEFT 'TOP `(,WINDOW 0.5)
+                                                            (CL:IF (LISPSOURCEFILEP FILE2)
+                                                                SOURCEWIDTH
+                                                                700)
+                                                            700
+                                                            'LEFT
+                                                            'TOP
+                                                            `(,WINDOW 0.5)
                                                             (IPLUS (FETCH (REGION BOTTOM)
                                                                       OF (WINDOWPROP WINDOW
                                                                                 'REGION))
@@ -2019,7 +2040,13 @@
                      elseif (PDFFILEP FILE2)
                        then (SEE-PDF FILE2)
                      else (EXAMINEFILES FILE1 FILE2 LABEL1 LABEL2
-                                 (RELCREATEREGION 1400 700 'LEFT 'TOP `(,WINDOW 0.5 -701)
+                                 (RELCREATEREGION (ITIMES 2 (CL:IF (LISPSOURCEFILEP FILE1)
+                                                                SOURCEWIDTH
+                                                                700))
+                                        700
+                                        'LEFT
+                                        'TOP
+                                        `(,WINDOW 0.5 -701)
                                         (IPLUS (FETCH (REGION BOTTOM) OF (WINDOWPROP WINDOW
                                                                                 'REGION))
                                                -1)
@@ -2208,6 +2235,8 @@
       ELSE (ERROR FILE (CONCAT " doesn't begin with " FROMDIR])
 )
 
+(RPAQ? CD-LINELENGTH NIL)
+
 (RPAQQ CDTABLEBROWSER.MENUITEMS ((Compare CD-MENUFN)
                                  (Copy% -> CD-MENUFN)
                                  (Copy% <- CD-MENUFN)
@@ -2221,25 +2250,25 @@
 
 (MOVD? 'NILL 'TEDIT.FILEDATE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (2622 22985 (COMPAREDIRECTORIES 2632 . 7967) (COMPAREDIRECTORIES.INFOS 7969 . 10927) (
-COMPAREDIRECTORIES.CANDIDATES 10929 . 14314) (CDENTRIES.SELECT 14316 . 19091) (
-COMPAREDIRECTORIES.INFOS.TYPE 19093 . 20219) (MATCHNAME 20221 . 20901) (CD.INSURECDVALUE 20903 . 22517
-) (CD.UPDATEWIDTHS 22519 . 22983)) (22986 33608 (CDFILES 22996 . 29010) (CDFILES.MATCH 29012 . 30637) 
-(CDFILES.PATS 30639 . 33606)) (33609 51430 (CDPRINT 33619 . 36136) (CDPRINT.HEADER 36138 . 37035) (
-CDPRINT.LINE 37037 . 40269) (CDPRINT.MAXWIDTHS 40271 . 44386) (CDPRINT.COLHEADERS 44388 . 45673) (
-CDPRINT.COLUMNS 45675 . 50795) (CDTEDIT 50797 . 51428)) (51431 60552 (CDMAP 51441 . 52873) (CDENTRY 
-52875 . 53184) (CDSUBSET 53186 . 54625) (CDMERGE 54627 . 58611) (CDMERGE.COMMON 58613 . 59928) (
-CD.SORT 59930 . 60550)) (60553 68091 (BINCOMP 60563 . 64852) (EOLTYPE 64854 . 67416) (EOLTYPE.SHOW 
-67418 . 68089)) (68619 81146 (FIND-UNCOMPILED-FILES 68629 . 72272) (FIND-UNSOURCED-FILES 72274 . 74658
-) (FIND-SOURCE-FILES 74660 . 76398) (FIND-COMPILED-FILES 76400 . 78277) (FIND-UNLOADED-FILES 78279 . 
-79132) (FIND-LOADED-FILES 79134 . 79562) (FIND-MULTICOMPILED-FILES 79564 . 81144)) (81147 89578 (
-CREATED-AS 81157 . 85954) (SOURCE-FOR-COMPILED-P 85956 . 88883) (COMPILE-SOURCE-DATE-DIFF 88885 . 
-89576)) (89579 100342 (FIX-DIRECTORY-DATES 89589 . 93039) (FIX-EQUIV-DATES 93041 . 94566) (
-COPY-COMPARED-FILES 94568 . 96389) (COPY-MISSING-FILES 96391 . 98548) (COMPILED-ON-SAME-SOURCE 98550
- . 100340)) (100536 108374 (CDBROWSER 100546 . 104473) (CDBROWSER.STRINGS 104475 . 108372)) (108536 
-110272 (CD.TABLEITEM 108546 . 108766) (CD.TABLEITEM.PRINTFN 108768 . 108967) (CD.TABLEITEM.COPYFN 
-108969 . 110027) (CDTABLEBROWSER.HEADING.REPAINTFN 110029 . 110270)) (110273 131399 (
-CDTABLEBROWSER.WHENSELECTEDFN 110283 . 110751) (CD.COMMANDSELECTEDFN 110753 . 115854) (CD-MENUFN 
-115856 . 120638) (CD-COMPARE-FILES 120640 . 123992) (CDBROWSER-COPY 123994 . 127663) (
-CDBROWSER-DELETE-FILE 127665 . 130878) (CD-SWAPDIRS 130880 . 131397)))))
+  (FILEMAP (NIL (2701 23064 (COMPAREDIRECTORIES 2711 . 8046) (COMPAREDIRECTORIES.INFOS 8048 . 11006) (
+COMPAREDIRECTORIES.CANDIDATES 11008 . 14393) (CDENTRIES.SELECT 14395 . 19170) (
+COMPAREDIRECTORIES.INFOS.TYPE 19172 . 20298) (MATCHNAME 20300 . 20980) (CD.INSURECDVALUE 20982 . 22596
+) (CD.UPDATEWIDTHS 22598 . 23062)) (23065 33687 (CDFILES 23075 . 29089) (CDFILES.MATCH 29091 . 30716) 
+(CDFILES.PATS 30718 . 33685)) (33688 51509 (CDPRINT 33698 . 36215) (CDPRINT.HEADER 36217 . 37114) (
+CDPRINT.LINE 37116 . 40348) (CDPRINT.MAXWIDTHS 40350 . 44465) (CDPRINT.COLHEADERS 44467 . 45752) (
+CDPRINT.COLUMNS 45754 . 50874) (CDTEDIT 50876 . 51507)) (51510 60631 (CDMAP 51520 . 52952) (CDENTRY 
+52954 . 53263) (CDSUBSET 53265 . 54704) (CDMERGE 54706 . 58690) (CDMERGE.COMMON 58692 . 60007) (
+CD.SORT 60009 . 60629)) (60632 68170 (BINCOMP 60642 . 64931) (EOLTYPE 64933 . 67495) (EOLTYPE.SHOW 
+67497 . 68168)) (68698 81225 (FIND-UNCOMPILED-FILES 68708 . 72351) (FIND-UNSOURCED-FILES 72353 . 74737
+) (FIND-SOURCE-FILES 74739 . 76477) (FIND-COMPILED-FILES 76479 . 78356) (FIND-UNLOADED-FILES 78358 . 
+79211) (FIND-LOADED-FILES 79213 . 79641) (FIND-MULTICOMPILED-FILES 79643 . 81223)) (81226 89657 (
+CREATED-AS 81236 . 86033) (SOURCE-FOR-COMPILED-P 86035 . 88962) (COMPILE-SOURCE-DATE-DIFF 88964 . 
+89655)) (89658 100421 (FIX-DIRECTORY-DATES 89668 . 93118) (FIX-EQUIV-DATES 93120 . 94645) (
+COPY-COMPARED-FILES 94647 . 96468) (COPY-MISSING-FILES 96470 . 98627) (COMPILED-ON-SAME-SOURCE 98629
+ . 100419)) (100615 108453 (CDBROWSER 100625 . 104552) (CDBROWSER.STRINGS 104554 . 108451)) (108615 
+110351 (CD.TABLEITEM 108625 . 108845) (CD.TABLEITEM.PRINTFN 108847 . 109046) (CD.TABLEITEM.COPYFN 
+109048 . 110106) (CDTABLEBROWSER.HEADING.REPAINTFN 110108 . 110349)) (110352 132922 (
+CDTABLEBROWSER.WHENSELECTEDFN 110362 . 110830) (CD.COMMANDSELECTEDFN 110832 . 115933) (CD-MENUFN 
+115935 . 122161) (CD-COMPARE-FILES 122163 . 125515) (CDBROWSER-COPY 125517 . 129186) (
+CDBROWSER-DELETE-FILE 129188 . 132401) (CD-SWAPDIRS 132403 . 132920)))))
 STOP
diff --git a/lispusers/COMPAREDIRECTORIES.LCOM b/lispusers/COMPAREDIRECTORIES.LCOM
index 96d8992c..47036b4e 100644
Binary files a/lispusers/COMPAREDIRECTORIES.LCOM and b/lispusers/COMPAREDIRECTORIES.LCOM differ
diff --git a/lispusers/EXAMINEDEFS b/lispusers/EXAMINEDEFS
index 927f9ce4..29d693b8 100644
--- a/lispusers/EXAMINEDEFS
+++ b/lispusers/EXAMINEDEFS
@@ -1,14 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "20-Jan-2025 22:00:44" {WMEDLEY}<lispusers>EXAMINEDEFS.;54 16352  
+(FILECREATED "31-Mar-2025 13:53:38" {WMEDLEY}<lispusers>EXAMINEDEFS.;56 16674  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS EXVV EXV)
-                  (COMMANDS exv)
-                  (VARS EXAMINEDEFSCOMS)
+      :CHANGES-TO (FNS EXAMINEDEFS)
 
-      :PREVIOUS-DATE "12-Dec-2024 15:09:08" {WMEDLEY}<lispusers>EXAMINEDEFS.;53)
+      :PREVIOUS-DATE "18-Feb-2025 23:01:57" {WMEDLEY}<lispusers>EXAMINEDEFS.;55)
 
 
 (PRETTYCOMPRINT EXAMINEDEFSCOMS)
@@ -22,7 +20,9 @@
 (DEFINEQ
 
 (EXAMINEDEFS
-  [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION)   (* ; "Edited  6-Dec-2024 20:51 by rmk")
+  [LAMBDA (NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2 REGION)   (* ; "Edited 31-Mar-2025 13:53 by rmk")
+                                                             (* ; "Edited 18-Feb-2025 22:56 by rmk")
+                                                             (* ; "Edited  6-Dec-2024 20:51 by rmk")
                                                              (* ; "Edited 13-Oct-2023 11:11 by rmk")
                                                              (* ; "Edited 18-May-2023 22:35 by rmk")
                                                              (* ; "Edited 21-Apr-2023 14:42 by rmk")
@@ -140,11 +140,13 @@
                                                                                    W1
                                                                                    'PROCESS))
                                                 (CONS W2 (WINDOWPROP W2 'PROCESS])
-                              (COMPARETEXT [LET (COMPARETEXT.ALLCHUNKS CTWINDOW
-                                                       (KEY (LIST NAME TYPE SOURCE1 SOURCE2 TITLE1 
-                                                                  TITLE2))
-                                                       (TEXTWIDTH 700)
-                                                       (TEXTHEIGHT 600))
+                              (COMPARETEXT [LET (COMPARETEXT.ALLCHUNKS
+                                                 CTWINDOW
+                                                 (KEY (LIST NAME TYPE SOURCE1 SOURCE2 TITLE1 TITLE2))
+                                                 (TEXTWIDTH (ITIMES TEDIT.SOURCE.LINELENGTH
+                                                                   (CHARWIDTH (CHARCODE SPACE)
+                                                                          DEFAULTFONT)))
+                                                 (TEXTHEIGHT 600))
                                                 (DECLARE (SPECVARS COMPARETEXT.ALLCHUNKS))
                                                              (* ; 
                                                      "Reuse an existing CT graph window for this DEF")
@@ -278,6 +280,6 @@
 (FILESLOAD (SYSLOAD)
        COMPARETEXT VERSIONDEFS)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (736 16121 (EXAMINEDEFS 746 . 10675) (EXAMINEFILES 10677 . 12159) (TEDITDEF 12161 . 
-14327) (EXVV 14329 . 16119)))))
+  (FILEMAP (NIL (665 16443 (EXAMINEDEFS 675 . 10997) (EXAMINEFILES 10999 . 12481) (TEDITDEF 12483 . 
+14649) (EXVV 14651 . 16441)))))
 STOP
diff --git a/lispusers/EXAMINEDEFS.LCOM b/lispusers/EXAMINEDEFS.LCOM
index 3433abf8..350ffb06 100644
Binary files a/lispusers/EXAMINEDEFS.LCOM and b/lispusers/EXAMINEDEFS.LCOM differ
diff --git a/lispusers/TEDIT-PF-SEE b/lispusers/TEDIT-PF-SEE
index 414b8a19..6c19e0bc 100644
--- a/lispusers/TEDIT-PF-SEE
+++ b/lispusers/TEDIT-PF-SEE
@@ -1,10 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-(FILECREATED "23-Dec-2024 19:26:20" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;133 11059  
+(FILECREATED "26-Mar-2025 10:09:16" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;137 11103  
 
       :EDIT-BY rmk
 
-      :PREVIOUS-DATE " 7-Dec-2024 18:00:39" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;132)
+      :CHANGES-TO (FNS PF-TEDIT)
+
+      :PREVIOUS-DATE "18-Feb-2025 23:39:40" {WMEDLEY}<lispusers>TEDIT-PF-SEE.;136)
 
 
 (PRETTYCOMPRINT TEDIT-PF-SEECOMS)
@@ -24,7 +26,9 @@
 (DEFINEQ
 
 (PF-TEDIT
-  [LAMBDA (FN IFILES VERSION REPRINT)                        (* ; "Edited  6-Dec-2024 19:15 by rmk")
+  [LAMBDA (FN IFILES VERSION REPRINT)                        (* ; "Edited 26-Mar-2025 10:08 by rmk")
+                                                             (* ; "Edited 18-Feb-2025 23:39 by rmk")
+                                                             (* ; "Edited  6-Dec-2024 19:15 by rmk")
                                                              (* ; "Edited 27-Aug-2024 13:03 by rmk")
                                                              (* ; "Edited 27-Mar-2024 23:45 by rmk")
                                                              (* ; "Edited 25-Dec-2023 12:24 by rmk")
@@ -75,71 +79,74 @@
                         (SETQ IFILE (FINDFILEVERSION (CAR (WHEREIS FN NIL T))
                                            IFILE))) UNLESS (MEMB (FILENAMEFIELD IFILE 'EXTENSION)
                                                                  *COMPILED-EXTENSIONS*)
-           DO (SETQ LOC (FINDFNDEF FN IFILE))
-              (IF (LISTP LOC)
-                  THEN (SETQ TFPROP (LIST FN (CAR LOC)))
-                       [SETQ WINDOW (FIND W IN (OPENWINDOWS)
-                                       SUCHTHAT (AND (EQUAL TFPROP (WINDOWPROP W 'TF))
-                                                     (fetch (TEXTWINDOW WTEXTSTREAM) of W]
-                       (IF (AND WINDOW (NOT REPRINT))
-                           THEN 
-                                (* ;; 
+           DO
+           (SETQ LOC (FINDFNDEF FN IFILE))
+           (IF (LISTP LOC)
+               THEN (SETQ TFPROP (LIST FN (CAR LOC)))
+                    [SETQ WINDOW (FIND W IN (OPENWINDOWS)
+                                    SUCHTHAT (AND (EQUAL TFPROP (WINDOWPROP W 'TF))
+                                                  (fetch (TEXTWINDOW WTEXTSTREAM) of W]
+                    (IF (AND WINDOW (NOT REPRINT))
+                        THEN 
+                             (* ;; 
                "If already an open PF window on this function in this file, just raise it to the top")
 
-                                (TOTOPW WINDOW)
-                                (RETURN)
-                         ELSE (CL:WITH-OPEN-FILE (ISTREAM (POP LOC)
-                                                        :DIRECTION :INPUT)
-                                     (SETQ ENV (LISPSOURCEFILEP ISTREAM))
-                                     (SETFILEINFO ISTREAM 'FORMAT ENV)
-                                     (SETQ TSTREAM (OPENTEXTSTREAM))
-                                     (DSPFONT DEFAULTFONT TSTREAM)
-                                     (PRINTOUT TSTREAM 5 "[From " (FULLNAME ISTREAM)
-                                            "]" T)
-                                     (PRINT-READER-ENVIRONMENT ENV TSTREAM)
-                                     (IF REPRINT
-                                         THEN (SETFILEPTR ISTREAM (POP LOC))
-                                              (SETQ EXPR (WITH-READER-ENVIRONMENT ENV (READ ISTREAM))
-                                               )
-                                              (WITH-READER-ENVIRONMENT ENV
-                                                  (IF (EQ FN (CAR EXPR))
-                                                      THEN (DSPFONT BOLDFONT TSTREAM)
-                                                           (PRINT FN TSTREAM)
-                                                           (DSPFONT DEFAULTFONT TSTREAM)
-                                                           (SETQ EXPR (CADR EXPR))
-                                                           (PRINTDEF EXPR 3 T NIL NIL TSTREAM)
-                                                    ELSEIF (EQ FN (CADR EXPR))
-                                                      THEN 
-                                                           (* ;; 
+                             (TOTOPW WINDOW)
+                             (RETURN)
+                      ELSE (CL:WITH-OPEN-FILE
+                            (ISTREAM (POP LOC)
+                                   :DIRECTION :INPUT)
+                            (SETQ ENV (LISPSOURCEFILEP ISTREAM))
+                            (SETFILEINFO ISTREAM 'FORMAT ENV)
+                            [SETQ TSTREAM (OPENTEXTSTREAM
+                                           NIL NIL `(PARABREAKCHARS NIL OPENWIDTH
+                                                           ,(TIMES TEDIT.SOURCE.LINELENGTH
+                                                                   (CHARWIDTH (CHARCODE SPACE)
+                                                                          DEFAULTFONT]
+                            (DSPFONT DEFAULTFONT TSTREAM)
+                            (PRINTOUT TSTREAM 5 "[From " (FULLNAME ISTREAM)
+                                   "]" T)
+                            (PRINT-READER-ENVIRONMENT ENV TSTREAM)
+                            (IF REPRINT
+                                THEN (SETFILEPTR ISTREAM (POP LOC))
+                                     (SETQ EXPR (WITH-READER-ENVIRONMENT ENV (READ ISTREAM)))
+                                     (WITH-READER-ENVIRONMENT ENV
+                                         (IF (EQ FN (CAR EXPR))
+                                             THEN (DSPFONT BOLDFONT TSTREAM)
+                                                  (PRINT FN TSTREAM)
+                                                  (DSPFONT DEFAULTFONT TSTREAM)
+                                                  (SETQ EXPR (CADR EXPR))
+                                                  (PRINTDEF EXPR 3 T NIL NIL TSTREAM)
+                                           ELSEIF (EQ FN (CADR EXPR))
+                                             THEN 
+                                                  (* ;; 
                                               "Presumably a DEFUN.  Print the CAR, boldface the cadr")
 
-                                                           (PRINTOUT TSTREAM "(" .P2 (CAR EXPR)
-                                                                  " " .FONT BOLDFONT .P2 (CADR EXPR)
-                                                                  .FONT DEFAULTFONT " " .P2
-                                                                  (CADDR EXPR)
-                                                                  T 3)
-                                                           (PRINTDEF (CDDDR EXPR)
-                                                                  3 T T NIL TSTREAM)
-                                                           (PRIN3 ")" TSTREAM)
-                                                    ELSE (PRINTDEF EXPR 3 NIL NIL NIL TSTREAM)))
-                                       ELSE (PFI.MAYBE.PP.DEFINITION ISTREAM TSTREAM (POP LOC)
-                                                   (POP LOC)))
-                                     (TERPRI TSTREAM)
-                                     [TEDIT TSTREAM (OR WINDOW 'TF)
-                                            NIL
-                                            `(READONLY T LEAVETTY T TITLE ,(CONCAT FN "  from "
-                                                                                  (FULLNAME ISTREAM]
-                                     (TEXTPROP TSTREAM 'ITEM-NAME FN)
-                                     (TEXTPROP TSTREAM 'BOUNDTABLE (TEDIT.ATOMBOUND.READTABLE 
-                                                                          *READTABLE*))
+                                                  (PRINTOUT TSTREAM "(" .P2 (CAR EXPR)
+                                                         " " .FONT BOLDFONT .P2 (CADR EXPR)
+                                                         .FONT DEFAULTFONT " " .P2 (CADDR EXPR)
+                                                         T 3)
+                                                  (PRINTDEF (CDDDR EXPR)
+                                                         3 T T NIL TSTREAM)
+                                                  (PRIN3 ")" TSTREAM)
+                                           ELSE (PRINTDEF EXPR 3 NIL NIL NIL TSTREAM)))
+                              ELSE (PFI.MAYBE.PP.DEFINITION ISTREAM TSTREAM (POP LOC)
+                                          (POP LOC)))
+                            (TERPRI TSTREAM)
+                            [TEDIT TSTREAM (OR WINDOW 'TF)
+                                   NIL
+                                   `(READONLY T LEAVETTY T TITLE ,(CONCAT FN "  from " (FULLNAME
+                                                                                        ISTREAM))
+                                           ITEM-NAME
+                                           ,FN BOUNDTABLE ,(TEDIT.ATOMBOUND.READTABLE *READTABLE*]
 
-                                 (* ;; "The windowprop allows for reprinting as a window action, or reprinting from a command that can find and reuse the previous (presumably unprettied) window.")
+                            (* ;; "The windowprop allows for reprinting as a window action, or reprinting from a command that can find and reuse the previous (presumably unprettied) window.")
 
-                                     (WINDOWPROP (WFROMDS TSTREAM)
-                                            'TF TFPROP)))
-                ELSEIF (EQ LOC 'FILE.NOT.FOUND)
-                  THEN (printout T "file " IFILE " not found." T)
-                ELSE (printout T FN " not found on " LOC "." T)))
+                            (WINDOWPROP (WFROMDS TSTREAM)
+                                   'TF TFPROP)))
+             ELSEIF (EQ LOC 'FILE.NOT.FOUND)
+               THEN (printout T "file " IFILE " not found." T)
+             ELSE (printout T FN " not found on " LOC "." T)))
         (SETQ *LAST-DF* FN)
       ELSE (PRINTOUT T FN " has no function definition" T])
 
@@ -198,5 +205,5 @@
 (ADDTOVAR LAMA )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (973 10035 (PF-TEDIT 983 . 8821) (PF-TEDIT-FROM-TEXT 8823 . 10033)))))
+  (FILEMAP (NIL (1007 10079 (PF-TEDIT 1017 . 8865) (PF-TEDIT-FROM-TEXT 8867 . 10077)))))
 STOP
diff --git a/lispusers/TEDIT-PF-SEE.LCOM b/lispusers/TEDIT-PF-SEE.LCOM
index 0cd13114..94a0d8d0 100644
Binary files a/lispusers/TEDIT-PF-SEE.LCOM and b/lispusers/TEDIT-PF-SEE.LCOM differ
