@@ -363,11 +363,11 @@
 		     (pids (delete-duplicates (filter number? (list pid1 pid2)))))
 		(if (not (null? pids))
 		    (begin
 		      (for-each
 		       (lambda (pid)
-			 (handle-exceptions
+			 (common:debug-handle-exceptions #t
 			  exn
 			  (begin
 			    (debug:print-info 0 *default-log-port* "Unable to kill process with pid " pid ", possibly already killed.")
 			    (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn)))
 			  (debug:print 0 *default-log-port* "WARNING: Request received to kill job " pid) ;;  " (attempt # " kill-tries ")")
@@ -378,11 +378,11 @@
 				 (process-signal pid-num signal/term))
 			       (process:get-sub-pids pid))
 			  (thread-sleep! 5)
 			  ;; (if (process:process-alive? pid)
 			  (map (lambda (pid-num)
-				 (handle-exceptions
+				 (common:debug-handle-exceptions #t
 				  exn
 				  #f
 				  (process-signal pid-num signal/kill)))
 			       (process:get-sub-pids pid))))
 		       ;;    (debug:print-info 0 *default-log-port* "not killing process " pid " as it is not alive"))))
@@ -846,18 +846,18 @@
 			 (if *configdat* (configf:lookup *configdat* "setup" "linktree") #f))))
       (if linktree
 	  (begin
 	    (if (not (file-exists? linktree))
 		(begin
-		  (handle-exceptions
+		  (common:debug-handle-exceptions #t
 		   exn
 		   (begin
 		     (debug:print-error 0 *default-log-port* "Something went wrong when trying to create linktree dir at " linktree)
 		     (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
 		     (exit 1))
 		   (create-directory linktree #t))))
-	    (handle-exceptions
+	    (common:debug-handle-exceptions #t
 	     exn
 	     (begin
 	       (debug:print-error 0 *default-log-port* "Something went wrong when trying to create link to linktree at " *toppath*)
 	       (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn)))
 	     (let ((tlink (conc *toppath* "/lt")))
@@ -952,11 +952,11 @@
 	  (debug:print 0 *default-log-port* "WARNING: linktree did not exist! Creating it now at " linktree)
 	  (create-directory linktree #t))) ;; (system (conc "mkdir -p " linktree))))
     ;; create the directory for the tests dir links, this is needed no matter what...
     (if (and (not (directory-exists? lnkbase))
 	     (not (file-exists? lnkbase)))
-	(handle-exceptions
+	(common:debug-handle-exceptions #t
 	 exn
 	 (begin
 	   (debug:print-error 0 *default-log-port* "Problem creating linktree base at " lnkbase)
 	   (print-error-message exn (current-error-port)))
 	 (create-directory lnkbase #t)))
@@ -971,28 +971,28 @@
     ;; to the iteration. use pathname-directory to trim the path by one
     ;; level
     (if (not not-iterated) ;; i.e. iterated
 	(let ((iterated-parent  (pathname-directory (conc lnkpath "/" item-path))))
 	  (debug:print-info 2 *default-log-port* "Creating iterated parent " iterated-parent)
-	  (handle-exceptions
+	  (common:debug-handle-exceptions #t
 	   exn
 	   (begin
 	     (debug:print-error 0 *default-log-port* " Failed to create directory " iterated-parent ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	     (exit 1))
 	   (create-directory iterated-parent #t))))
 
     (if (symbolic-link? lnkpath) 
-	(handle-exceptions
+	(common:debug-handle-exceptions #t
 	 exn
 	 (begin
 	   (debug:print-error 0 *default-log-port* " Failed to remove symlink " lnkpath ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	   (exit 1))
 	 (delete-file lnkpath)))
 
     (if (not (or (file-exists? lnkpath)
 		 (symbolic-link? lnkpath)))
-	(handle-exceptions
+	(common:debug-handle-exceptions #t
 	 exn
 	 (begin
 	   (debug:print-error 0 *default-log-port* " Failed to create symlink " lnkpath ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	   (exit 1))
 	 (create-symbolic-link toptest-path lnkpath)))
@@ -1021,11 +1021,11 @@
 	  ;; (rmt:general-call 'test-set-rundir run-id lnkpath testname "") ;; toptest-path)
 	  (if (or (not curr-test-path)
 		  (not (directory-exists? toptest-path)))
 	      (begin
 		(debug:print-info 2 *default-log-port* "Creating " toptest-path " and link " lnkpath)
-		(handle-exceptions
+		(common:debug-handle-exceptions #t
 		 exn
 		 #f ;; don't care to catch and deal with errors here for now.
 		 (create-directory toptest-path #t))
 		(hash-table-set! *toptest-paths* testname toptest-path)))))
 
@@ -1033,11 +1033,11 @@
     ;; been created. Now, if this is an iterated test the real test dir must be created
     (if (not not-iterated) ;; this is an iterated test
 	(begin ;; (let ((lnktarget (conc lnkpath "/" item-path)))
 	  (debug:print 2 *default-log-port* "Setting up sub test run area")
 	  (debug:print 2 *default-log-port* " - creating run area in " test-path)
-	  (handle-exceptions
+	  (common:debug-handle-exceptions #t
 	   exn
 	   (begin
 	     (debug:print-error 0 *default-log-port* " Failed to create directory " test-path ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	     (exit 1))
 	   (create-directory test-path #t))
@@ -1044,11 +1044,11 @@
 	  (debug:print 2 *default-log-port* 
 		       " - creating link from: " test-path "\n"
 		       "                   to: " lnktarget)
 
 	  ;; If there is already a symlink delete it and recreate it.
-	  (handle-exceptions
+	  (common:debug-handle-exceptions #t
 	   exn
 	   (begin
 	     (debug:print-error 0 *default-log-port* " Failed to re-create link " lnktarget ((condition-property-accessor 'exn 'message) exn) ", exiting")
 	     (exit))
 	   (if (symbolic-link? lnktarget)     (delete-file lnktarget))