Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -612,12 +612,12 @@
 
 (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))
+;;(if (debug:debug-mode 3) ;; we are obviously debugging
+;;    (set! open-run-close open-run-close-no-exception-handling))
 
 (if (args:get-arg "-itempatt")
     (let ((newval (conc (args:get-arg "-testpatt") "/" (args:get-arg "-itempatt"))))
       (debug:print 0 *default-log-port* "WARNING: -itempatt has been deprecated, please use -testpatt testpatt/itempatt method, new testpatt is "newval)
       (hash-table-set! args:arg-hash "-testpatt" newval)