diff --git a/internal/MEDLEY-UTILS b/internal/MEDLEY-UTILS
index 019c4b30..81c138f5 100644
--- a/internal/MEDLEY-UTILS
+++ b/internal/MEDLEY-UTILS
@@ -1,13 +1,15 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 4-May-2026 19:19:00" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;9
 30560  
+
(FILECREATED " 8-May-2026 10:41:23" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;2
 30963  
 
       :EDIT-BY "lmm"
 
-      :CHANGES-TO (FNS HCFILES)
-                  (FUNCTIONS REPORT-AND-GO)
+      :CHANGES-TO (ADVICE TEDIT.PROMPTPRINT)
+                  (FNS GATHER-INFO MAKE-FULLER-DB MEDLEY-FIX-LINKS MEDLEY-FIX-DATES MAKE-EXPORTS-ALL
+                       MAKE-WHEREIS-HASH MAKE-WHEREIS-LOOPS HCFILES MAKE-INDEX-HTMLS RECOMPILE-ONE 
+                       RECMPL COMPILE-SETUP REMAKEFILES)
 
-      :PREVIOUS-DATE "16-Apr-2026 22:42:51" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;1)
+      :PREVIOUS-DATE " 4-May-2026 19:19:00" {DSK}<Users>larry>il>MEDLEY>INTERNAL>MEDLEY-UTILS.;1)
 
 
 (PRETTYCOMPRINT MEDLEY-UTILSCOMS)
@@ -212,7 +214,8 @@
 (DEFINEQ
 
 (HCFILES

-  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited  4-May-2026 19:18 by lmm")


+  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited  8-May-2026 10:39 by lmm")


+                                                             (* ; "Edited  4-May-2026 19:18 by lmm")


                                                              (* ; "Edited 16-Apr-2026 22:42 by mth")


                                                              (* ; "Edited 30-Jun-2024 08:27 by lmm")


                                                              (* ; "Edited 23-Apr-2024 23:15 by lmm")


@@ -294,7 +297,7 @@
                                    else
 
                                         (* ;; "ADDED HERE")

 
-                                        (SETQ NLSETQGAG T)
+                                        (SETQ NLSETQGAG NIL)
                                         (SETQ \TEDIT.THELPFLG T)
                                         (REPORT-AND-GO
 (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
                                                (CL:FORMAT NIL 
@@ -521,14 +524,14 @@
 
 (DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited  4-May-2026 19:02 by lmm")


                                                              (* ; "Edited 16-Apr-2026 16:02 by mth")

-   `(CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
-        (IGNORE-ERRORS (CL:VALUES ,FORM))                    (* ; "Only the first value")

-      (COND
-         (ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
-                (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
-                       T)
-                NIL)
-         (T (LIST FORM-RESULT)))))
+   `[CL:MULTIPLE-VALUE-BIND (FORM-RESULT ERROR-CONDITION)
+           (IGNORE-ERRORS (CL:VALUES ,FORM))                 (* ; "Only the first value")

+           (COND
+              (ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
+                     (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
+                            T)
+                     NIL)
+              (T (LIST FORM-RESULT])
 (DECLARE%: DONTEVAL@LOAD DOEVAL@COMPILE DONTCOPY COMPILERVARS 
 
 (ADDTOVAR NLAMA
 )
@@ -538,10 +541,10 @@
 (ADDTOVAR LAMA
 )
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1100 8034 (GATHER-INFO 1110 . 6492) (MAKE-FULLER-DB 6494 . 7403) (MEDLEY-FIX-LINKS 7405
- . 7798) (MEDLEY-FIX-DATES 7800 . 8032)) (9606 12182 (MAKE-EXPORTS-ALL 9616 . 10463) (
-MAKE-WHEREIS-HASH 10465 . 11654) (MAKE-WHEREIS-LOOPS 11656 . 12180)) (12183 24860 (HCFILES 12193 . 
-19384) (MAKE-INDEX-HTMLS 19386 . 24858)) (25194 29806 (RECOMPILE-ONE 25204 . 27101) (RECMPL 27103 . 
-27706) (COMPILE-SETUP 27708 . 28332) (REMAKEFILES 28334 . 29804)) (29808 30404 (REPORT-AND-GO 29808 . 
-30404)))))
+  (FILEMAP (NIL (1365 8299 (GATHER-INFO 1375 . 6757) (MAKE-FULLER-DB 6759 . 7668) (MEDLEY-FIX-LINKS 7670
+ . 8063) (MEDLEY-FIX-DATES 8065 . 8297)) (9871 12447 (MAKE-EXPORTS-ALL 9881 . 10728) (
+MAKE-WHEREIS-HASH 10730 . 11919) (MAKE-WHEREIS-LOOPS 11921 . 12445)) (12448 25236 (HCFILES 12458 . 
+19760) (MAKE-INDEX-HTMLS 19762 . 25234)) (25570 30182 (RECOMPILE-ONE 25580 . 27477) (RECMPL 27479 . 
+28082) (COMPILE-SETUP 28084 . 28708) (REMAKEFILES 28710 . 30180)) (30184 30807 (REPORT-AND-GO 30184 . 
+30807)))))
 STOP
diff --git a/internal/MEDLEY-UTILS.DFASL b/internal/MEDLEY-UTILS.DFASL
index c5cc4012..b4e245e6 100644
Binary files a/internal/MEDLEY-UTILS.DFASL and b/internal/MEDLEY-UTILS.DFASL differ