one more try -- this branch just for testing?

internal/MEDLEY-UTILS

@@ -1,11 +1,11 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 4-May-2026 18:44:13" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;5
 30454  
+
(FILECREATED " 4-May-2026 19:19:00" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;9
 30560  
 
       :EDIT-BY "lmm"
 
-      :CHANGES-TO (FUNCTIONS REPORT-AND-GO)
-                  (FNS HCFILES)
+      :CHANGES-TO (FNS HCFILES)
+                  (FUNCTIONS REPORT-AND-GO)
 
       :PREVIOUS-DATE "16-Apr-2026 22:42:51" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;1)
 
@@ -212,7 +212,7 @@
 (DEFINEQ
 
 (HCFILES

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


+  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "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")


@@ -291,7 +291,10 @@
                                  (if
 (EQ REDO 'TEST)
                                      then
 (CL:FORMAT T "Testing open ~a..." SRCPATH)
                                           (CLOSEF? (OPENTEXTSTREAM SRCPATH))
-                                   else
 (SETQ NLSETQGAG T)
+                                   else
 
+                                        (* ;; "ADDED HERE")

+
+                                        (SETQ NLSETQGAG T)
                                         (SETQ \TEDIT.THELPFLG T)
                                         (REPORT-AND-GO
 (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
                                                (CL:FORMAT NIL 
@@ -516,7 +519,7 @@
                (TERPRI])
 )
 
-(DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited  4-May-2026 18:43 by lmm")


+(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")

@@ -537,8 +540,8 @@
 (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 24754 (HCFILES 12193 . 
-19278) (MAKE-INDEX-HTMLS 19280 . 24752)) (25088 29700 (RECOMPILE-ONE 25098 . 26995) (RECMPL 26997 . 
-27600) (COMPILE-SETUP 27602 . 28226) (REMAKEFILES 28228 . 29698)) (29702 30298 (REPORT-AND-GO 29702 . 
-30298)))))
+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)))))
 STOP