@@ -1081,11 +1081,10 @@
 		      (hash-table-set! test-field-index hed idx)
 		      (if (not (null? tal))(loop (car tal)(cdr tal)(+ idx 1))))
 		    (begin
 		      (debug:print-error 0 *default-log-port* "Invalid test fields specified: " (string-intersperse invalid-tests-spec ", "))
 		      (exit)))))
-
 	  ;; Each run
 	  (for-each 
 	   (lambda (run)
 	     (let ((targetstr (string-intersperse (map (lambda (x)
 							 (db:get-value-by-header run header x))
@@ -1349,11 +1348,15 @@
 					 (debug:print 0 *default-log-port* "WARNING: path given, " outputfile " is relative, prefixing with current directory")
 					 (conc (current-directory) "/" outputfile)))))
 		  (create-directory tempdir #t)
 		  (ods:list->ods tempdir ouf sheets))))
 	  ;; (system (conc "rm -rf " tempdir))
-	  (set! *didsomething* #t))))
+	  (set! *didsomething* #t)
+          (set! *time-to-exit* #t)
+          ) ;; end if true branch (end of a let)
+        ) ;; end if
+    ) ;; end if -list-runs
 
 ;; Don't think I need this. Incorporated into -list-runs instead
 ;;
 ;; (if (and (args:get-arg "-since")
 ;; 	 (launch:setup))