another try

internal/MEDLEY-UTILS

@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED " 4-May-2026 16:56:44" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;4
 30452  
+
(FILECREATED " 4-May-2026 18:44:13" {MEDLEY}<INTERNAL>MEDLEY-UTILS.;5
 30454  
 
       :EDIT-BY "lmm"
 
@@ -516,12 +516,12 @@
                (TERPRI])
 )
 
-(DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited  4-May-2026 16:56 by lmm")


+(DEFMACRO REPORT-AND-GO
 (FORM REPORT-FORMAT)
                 (* ; "Edited  4-May-2026 18:43 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)
+         (ERROR-CONDITION (BAKTRACE 'BAKTRACE NIL NIL 1 T)
                 (PRIN3 (CL:FORMAT NIL ,REPORT-FORMAT ERROR-CONDITION)
                        T)
                 NIL)
@@ -539,6 +539,6 @@
  . 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 30296 (REPORT-AND-GO 29702 . 
-30296)))))
+27600) (COMPILE-SETUP 27602 . 28226) (REMAKEFILES 28228 . 29698)) (29702 30298 (REPORT-AND-GO 29702 . 
+30298)))))
 STOP