Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -22,10 +22,17 @@
 (include "common_records.scm")
 
 ;; (require-library margs)
 ;; (include "margs.scm")
 
+;; (define old-exit exit)
+;; 
+;; (define (exit . code)
+;;   (if (null? code)
+;;       (old-exit)
+;;       (old-exit code)))
+
 (define getenv get-environment-variable)
 (define (safe-setenv key val)
   (if (and (string? val)(string? key))
       (handle-exceptions
        exn
@@ -277,11 +284,11 @@
 			      (debug:print 4 "Attempting clean exit. Please be patient and wait a few seconds...")
 			      (if no-hurry
 				  (thread-sleep! 5) ;; give the clean up few seconds to do it's stuff
 				  (thread-sleep! 1))
 			      (debug:print 0 "       Done.")
-			      (exit))
+			      )
 			    "clean exit")))
       (thread-start! th2)
       (thread-start! th1)
       (thread-join! th2))))