@@ -212,12 +212,11 @@
 
 ;;======================================================================
 ;; Misc setup stuff
 ;;======================================================================
 
-(set! *verbosity* (debug:calc-verbosity (args:get-arg "-debug")))
-(debug:check-verbosity *verbosity* (args:get-arg "-debug"))
+(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))