@@ -513,11 +513,12 @@
     (runs:update-all-test_meta #f)
 
     ;; run the run prehook if there are no tests yet run for this run:
     ;;
     (runs:run-pre-hook run-id)
-    
+    ;; mark all test launced flag as false in the meta table 
+    (rmt:set-var (conc "lunch-complete-" run-id) "no")
     ;; now add non-directly referenced dependencies (i.e. waiton)
     ;;======================================================================
     ;; refactoring this block into tests:get-full-data
     ;;
     ;; What happended, this code is now duplicated in tests!?
@@ -667,16 +668,16 @@
 		  ;; recursive call to self
       (runs:run-tests target runname test-patts user flags run-count: (- run-count 1)))))
 	  (debug:print-info 0 *default-log-port* "No tests to run")))
     (debug:print-info 4 *default-log-port* "All done by here")
     ;; TODO: try putting post hook call here
-    (if (eq? run-count 0)
-     (begin  
-      (debug:print-info 0 *default-log-port* "Calling Post Hook")  
-      (debug:print-info 2 *default-log-port* " run-count " run-count)
-      (runs:run-post-hook run-id))
-      (debug:print-info 2 *default-log-port* "Not calling post hook runcount = " run-count ))   
+    ;(if (eq? run-count 0)
+    ; (begin  
+    ;  (debug:print-info 0 *default-log-port* "Calling Post Hook")  
+    ;  (debug:print-info 2 *default-log-port* " run-count " run-count)
+    ;  (runs:run-post-hook run-id))
+    ;  (debug:print-info 2 *default-log-port* "Not calling post hook runcount = " run-count ))   
     (rmt:tasks-set-state-given-param-key task-key "done")
     ;; (sqlite3:finalize! tasks-db)
     ))
 
 
@@ -1640,11 +1641,13 @@
 	  (loop (car reg)(cdr reg) '() reruns))
 	 (else
           (debug:print-info 4 *default-log-port* "cond branch - "  "rtq-9")
 	  (debug:print-info 4 *default-log-port* "Exiting loop with...\n  hed=" hed "\n  tal=" tal "\n  reruns=" reruns))
 	 ))) ;; end loop on sorted test names
-    
+    ;; this is the point where everything is launced and now you can mark the run in metadata table as all launced 
+    (rmt:set-var (conc "lunch-complete-" run-id) "yes")
+  
     ;; now *if* -run-wait we wait for all tests to be done
     ;; Now wait for any RUNNING tests to complete (if in run-wait mode)
     (thread-sleep! 10) ;; I think there is a race condition here. Let states/statuses settle
     (let wait-loop ((num-running      (rmt:get-count-tests-running-for-run-id run-id))
 		    (prev-num-running 0))
@@ -2473,17 +2476,23 @@
   (let* ((db       #f)
 	 (rundat   (mt:get-runs-by-patt keys runname target))
 	 (header   (vector-ref rundat 0))
 	 (runs     (vector-ref rundat 1)))
     (for-each (lambda (run)
-		(let ((run-id (db:get-value-by-header run header "id")))
+		(let ((run-id (db:get-value-by-header run header "id"))
+           (str (if lock 
+									"lock"
+                  "unlock")))
 		  (if (or lock
 			  (and unlock
-			       (begin
+			       (or (args:get-arg "-force")
+                (begin
 				 (print "Do you really wish to unlock run " run-id "?\n   y/n: ")
-				 (equal? "y" (read-line)))))
+				 (equal? "y" (read-line))))))
+          (begin 
 		      (rmt:lock/unlock-run run-id lock unlock user)
+					(debug:print-info 0 *default-log-port* "Done " str " on run id " run-id))
 		      (debug:print-info 0 *default-log-port* "Skipping lock/unlock on " run-id))))
 	      runs)))
 ;;======================================================================
 ;; Rollup runs
 ;;======================================================================