Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -24,10 +24,11 @@
 (declare (uses server))
 (declare (uses client))
 (declare (uses tests))
 (declare (uses genexample))
 (declare (uses daemon))
+(declare (uses db))
 
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
 (include "common_records.scm")
 (include "key_records.scm")
@@ -841,12 +842,13 @@
        (args:get-arg "-setlog")
        (args:get-arg "-m"))
       ;; (if db (sqlite3:finalize! db))
       (set! *didsomething* #t)))
     
-(if (or (and (args:get-arg "-setlog")       ;; since setting up is so costly lets piggyback on -test-status
-	     (not (args:get-arg "-step")))  ;; -setlog may have been processed already in the "-step" previous
+(if (or (args:get-arg "-setlog")       ;; since setting up is so costly lets piggyback on -test-status
+	;;     (not (args:get-arg "-step")))  ;; -setlog may have been processed already in the "-step" previous
+	;;     NEW POLICY - -setlog sets test overall log on every call.
 	(args:get-arg "-set-toplog")
 	(args:get-arg "-test-status")
 	(args:get-arg "-set-values")
 	(args:get-arg "-load-test-data")
 	(args:get-arg "-runstep")