more changes to get better diagnostics

internal/MEDLEY-UTILS

@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 3-May-2026 13:56:51" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;2
 30138  
+
(FILECREATED " 4-May-2026 09:39:07" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;3
 30262  
 
       :EDIT-BY "lmm"
 
@@ -211,7 +211,7 @@
 (DEFINEQ
 
 (HCFILES

-  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited  3-May-2026 13:56 by lmm")


+  [LAMBDA (BASE REDO SUBSETS)
                                (* ; "Edited  4-May-2026 09:38 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")


@@ -290,7 +290,9 @@
                                  (if
 (EQ REDO 'TEST)
                                      then
 (CL:FORMAT T "Testing open ~a..." SRCPATH)
                                           (CLOSEF? (OPENTEXTSTREAM SRCPATH))
-                                   else
 (REPORT-AND-GO
 (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
+                                   else
 (SETQ NLSETQGAG T)
+                                        (SETQ \TEDIT.THELPFLG T)
+                                        (REPORT-AND-GO
 (TEDIT.TO.IMAGEFILE SRCPATH DEST 'PDF)
                                                (CL:FORMAT NIL 
                                                   "~~%%~S TEDIT.TO.IMAGEFILE of ~A -- Condition: ~~A"
                                                       'FAIL SRCPATH)))
@@ -532,8 +534,8 @@
 (DECLARE%: DONTCOPY
   (FILEMAP (NIL (1056 7990 (GATHER-INFO 1066 . 6448) (MAKE-FULLER-DB 6450 . 7359) (MEDLEY-FIX-LINKS 7361
  . 7754) (MEDLEY-FIX-DATES 7756 . 7988)) (9562 12138 (MAKE-EXPORTS-ALL 9572 . 10419) (
-MAKE-WHEREIS-HASH 10421 . 11610) (MAKE-WHEREIS-LOOPS 11612 . 12136)) (12139 24586 (HCFILES 12149 . 
-19110) (MAKE-INDEX-HTMLS 19112 . 24584)) (24920 29532 (RECOMPILE-ONE 24930 . 26827) (RECMPL 26829 . 
-27432) (COMPILE-SETUP 27434 . 28058) (REMAKEFILES 28060 . 29530)) (29534 29982 (REPORT-AND-GO 29534 . 
-29982)))))
+MAKE-WHEREIS-HASH 10421 . 11610) (MAKE-WHEREIS-LOOPS 11612 . 12136)) (12139 24710 (HCFILES 12149 . 
+19234) (MAKE-INDEX-HTMLS 19236 . 24708)) (25044 29656 (RECOMPILE-ONE 25054 . 26951) (RECMPL 26953 . 
+27556) (COMPILE-SETUP 27558 . 28182) (REMAKEFILES 28184 . 29654)) (29658 30106 (REPORT-AND-GO 29658 . 
+30106)))))
 STOP