@@ -114,12 +114,11 @@
 (define *db-file-path* (conc *toppath* "/megatest.db"))
 
 (define *tests-sort-reverse* #f)
 (define *hide-empty-runs* #f)
 
-(set! *verbosity* (debug:calc-verbosity (args:get-arg "-debug")))
-(debug:check-verbosity *verbosity* (args:get-arg "-debug"))
+(debug:setup)
 
 (define uidat #f)
 
 (define-inline (dboard:uidat-get-keycol  vec)(vector-ref vec 0))
 (define-inline (dboard:uidat-get-lftcol  vec)(vector-ref vec 1))