@@ -212,23 +212,26 @@
 		   (state         (if newstate  newstate  (db:test-get-state  test-dat)))
 		   (status        (if newstatus newstatus (db:test-get-status test-dat)))
                    (target        (getenv "MT_TARGET"))
                    (runname       (getenv "MT_RUNNAME"))) 
 	      ;; (mutex-lock! *triggers-mutex*)
-              (handle-exceptions
-               exn
-               (begin
-                 (debug:print-error 0 *default-log-port* " Exception in mt:process-triggers for run-id="run-id" test-id="test-id" newstate="newstate" newstatus="newstatus
-                                    "\n   error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn
-                                    "\n   test-rundir="test-rundir
-                                    "\n   test-name="test-name
-                                    "\n   item-path="item-path
-                                    "\n   state="state
-                                    "\n   status="status
-                                    "\n")
-                 (print-call-chain (current-error-port))
-                 #f)
+              ;;;;;; (handle-exceptions
+              ;;;;;;  exn
+              ;;;;;;  (begin
+              ;;;;;;    (debug:print-error 0 *default-log-port* " Exception in mt:process-triggers for run-id="run-id" test-id="test-id" newstate="newstate" newstatus="newstatus
+              ;;;;;;                       "\n   error: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn
+              ;;;;;;                       "\n   test-rundir="test-rundir
+              ;;;;;;                       "\n   test-name="test-name
+              ;;;;;;                       "\n   item-path="item-path
+              ;;;;;;                       "\n   state="state
+              ;;;;;;                       "\n   status="status
+              ;;;;;;                       "\n")
+              ;;;;;;    (print-call-chain (current-error-port))
+	      ;;;;;; 	 (with-output-to-port *default-log-port*
+	      ;;;;;; 	   (lambda ()
+	      ;;;;;; 	     (print (condition->list exn))))
+              ;;;;;;    #f)
                (if (and test-name
                         test-rundir)   ;; #f means no dir set yet
                    ;; (common:file-exists? test-rundir)
                    ;; (directory? test-rundir))
                    (call-with-environment-variables
@@ -252,11 +255,11 @@
                                 (list
                                  (conc state "/" status)
                                  (conc state "/")
                                  (conc "/" status)))
 		     (pop-directory))
-                    )))
+                    )) ;; )
 	      ;; (mutex-unlock! *triggers-mutex*)
 	      )))))
 
 ;;======================================================================
 ;;  S T A T E   A N D   S T A T U S   F O R   T E S T S