@@ -124,17 +124,19 @@
 	 (list? n))
     (member *verbosity* n))))
 
 (define (debug:setup)
   (let ((debugstr (or (args:get-arg "-debug")
+		      (args:get-arg "-debug-noprop")
 		      (getenv "MT_DEBUG_MODE"))))
     (set! *verbosity* (debug:calc-verbosity debugstr))
     (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 (or (args:get-arg "-debug")
-	    (not (getenv "MT_DEBUG_MODE")))
+    (if (and (not (args:get-arg "-debug-noprop"))
+	     (or (args:get-arg "-debug")
+		 (not (getenv "MT_DEBUG_MODE"))))
 	(setenv "MT_DEBUG_MODE" (if (list? *verbosity*)
 				    (string-intersperse (map conc *verbosity*) ",")
 				    (conc *verbosity*))))))
   
 (define (debug:print n e . params)