@@ -657,14 +657,11 @@
 
 ;;======================================================================
 ;; Misc setup stuff
 ;;======================================================================
 
-(debug:setup (cond
-	      ((args:get-arg "-debug-noprop") 'noprop)
-	      ((args:get-arg "-debug")         #t)
-	      (else #f)))
+(common:debug-setup)
 
 ;; (if (args:get-arg "-logging")(set! *logging* #t))
 
 ;;(if (debug:debug-mode 3) ;; we are obviously debugging
 ;;    (set! open-run-close open-run-close-no-exception-handling))