@@ -498,11 +498,11 @@
 		    (lambda ()
 		      (handle-exceptions
 			  exn
 			  (begin
 			    (print-call-chain)
-			    (print " message: " ((condition-property-accessor 'exn 'message) exn)))
+			    (print " message: " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn))
 			(common:watchdog)))
 		    "Watchdog thread"))
 
 ;;(if (not (args:get-arg "-server"))
 ;;    (thread-start! *watchdog*)) ;; if starting a server; wait till we get to running state before kicking off watchdog
@@ -552,11 +552,11 @@
 ;;
 (if (or (args:get-arg "-log")(args:get-arg "-server")) ;; redirect the log always when a server
     (handle-exceptions
 	exn
 	(begin
-	  (print "ERROR: Failed to switch to log output. " ((condition-property-accessor 'exn 'message) exn))
+	  (print "ERROR: Failed to switch to log output. " ((condition-property-accessor 'exn 'message) exn) ", exn=" exn)
 	  )
       (let* ((tl   (or (args:get-arg "-log")(launch:setup)))   ;; run launch:setup if -server, ensure we do NOT run launch:setup if -log specified
 	     (logf (or (args:get-arg "-log") ;; use -log unless we are a server, then craft a logfile name
 		       (conc tl "/logs/server-" (current-process-id) "-" (get-host-name) ".log")))
 	     (oup  (open-logfile logf)))
@@ -602,12 +602,14 @@
 		      (printf "Preparing to exit with exit code ~A ...\n" exit-code)
 		      (for-each
 		       
 		       (lambda (pid)
 			 (handle-exceptions
-			  exn
-			  #t
+			     exn
+			   (begin
+			     (printf "process reap failed. exn=~A\n" exn)
+			     #t)
 			  (let-values (((pid-val exit-status exit-code) (process-wait pid #t)))
 				      (if (or (eq? pid-val pid)
 					      (eq? pid-val 0))
 					  (begin
 					    (printf "Sending signal/term to ~A\n" pid)