@@ -23,11 +23,11 @@
 	(loop (conc res (read-char port)))
 	res)))
 
 (define (process:cmd-run-with-stderr->list cmd . params)
   ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
-;;  (handle-exceptions
+;;  (common:debug-handle-exceptions #t
 ;;   exn
 ;;   (begin
 ;;     (print "ERROR:  Failed to run command: " cmd " " (string-intersperse params " "))
 ;;     (print "       " ((condition-property-accessor 'exn 'message) exn))
 ;;     #f)
@@ -48,11 +48,11 @@
 	     (close-output-port fho)
 	     result))))) ;; )
 
 (define (process:cmd-run-proc-each-line cmd proc . params)
   ;; (print "Called with cmd=" cmd ", proc=" proc ", params=" params)
-  (handle-exceptions
+  (common:debug-handle-exceptions #t
    exn
    (begin
      (print "ERROR:  Failed to run command: " cmd " " (string-intersperse params " "))
      (debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
      (print "exn=" (condition->list exn))
@@ -140,21 +140,21 @@
 	   (let ((pid (string->number inl)))
 	     (if proc (proc pid))
 	     (loop (read-line) (cons pid res))))))))
 
 (define (process:alive? pid)
-  (handle-exceptions
+  (common:debug-handle-exceptions #t
    exn
    ;; possibly pid is a process not a child, look in /proc to see if it is running still
    (file-exists? (conc "/proc/" pid))
    (let-values (((rpid exit-type exit-signal)(process-wait pid #t)))
        (and (number? rpid)
 	    (equal? rpid pid)))))
 
 (define (process:alive-on-host? host pid)
   (let ((cmd (conc "ssh " host " ps -o pid= -p " pid)))
-    (handle-exceptions
+    (common:debug-handle-exceptions #t
      exn
      #f ;; anything goes wrong - assume the process in NOT running.
      (with-input-from-pipe 
       cmd
       (lambda ()