@@ -216,10 +216,13 @@
 (if (not (number? *verbosity*))
     (begin
       (print "ERROR: Invalid debug value " (args:get-arg "-debug"))
       (exit)))
 
+(if (> *verbosity* 3) ;; we are obviously debugging
+    (set! open-run-close open-run-close-no-exception-handling))
+
 ;;======================================================================
 ;; Misc general calls
 ;;======================================================================
 
 (if (args:get-arg "-env2file")