@@ -320,34 +320,10 @@
    (exn ()
 	(debug:print-error 0 *default-log-port* "Could not open log file for write: "logpath-in)
 	(define *didsomething* #t)  
 	(exit 1))))
 
-(define (debug:setup)
-  (let ((debugstr (or (args:get-arg "-debug")
-      		      (args:get-arg "-debug-noprop")
-      		      (get-environment-variable "MT_DEBUG_MODE"))))
-    (set! *verbosity* (debug:calc-verbosity debugstr 'q))
-    (debug:check-verbosity *verbosity* debugstr)
-    ;; if we were handed a bad verbosity rule then we will override it with 1 and continue
-    (if (not *verbosity*)(set! *verbosity* 1))
-    (if (and (not (args:get-arg "-debug-noprop"))
-      	     (or (args:get-arg "-debug")
-      		 (not (get-environment-variable "MT_DEBUG_MODE"))))
-      	(set-environment-variable! "MT_DEBUG_MODE" (if (list? *verbosity*)
-      				    (string-intersperse (map conc *verbosity*) ",")
-      				    (conc *verbosity*))))))
-
-;; check verbosity, #t is ok
-(define (debug:check-verbosity verbosity vstr)
-  (if (not (or (number? verbosity)
-     	       (list?   verbosity)))
-      (begin
-     	(print "ERROR: Invalid debug value \"" vstr "\"")
-     	#f)
-      #t))
-
 ;; Disabled help items
 ;;  -rollup                 : (currently disabled) fill run (set by :runname)  with latest test(s)
 ;;                            from prior runs with same keys
 ;;  -daemonize              : fork into background and disconnect from stdin/out