Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -604,13 +604,13 @@
 		    #:scrollbar "YES"
 		    #:posx "0.5"
 		    #:posy "0.5")))))))
 
 
-(trace dashboard:populate-target-dropdown
-       common:list-is-sublist)
-
+;; (trace dashboard:populate-target-dropdown
+;;        common:list-is-sublist)
+;; 
 ;;       ;; key1 key2 key3 ...
 ;;       ;; target entry (wild cards allowed)
 ;;       
 ;;       ;; The action
 ;;       (iup:hbox

Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -408,11 +408,11 @@
       (debug:print 4 "ERROR: No handler for this condition.")
       ;; TRY (thread-sleep! (+ 1 *global-delta*))
       (set! loop-list (list (car newtal)(cdr newtal) reg reruns)))) ;; END OF IF CAN RUN MORE
     loop-list))
 
-(define (runs:process-expanded-tests hed tal reg reruns reglen regfull test-record runname test-name item-path jobgroup max-concurrent-jobs run-id waitons item-path testmode)
+(define (runs:process-expanded-tests hed tal reg reruns reglen regfull test-record runname test-name item-path jobgroup max-concurrent-jobs run-id waitons item-path testmode test-patts required-tests test-registry registry-mutex flags keyvals run-info)
   (let* ((run-limits-info         (runs:can-run-more-tests jobgroup max-concurrent-jobs)) ;; look at the test jobgroup and tot jobs running
 	 ;; (open-run-close runs:can-run-more-tests #f jobgroup max-concurrent-jobs)) ;; look at the test jobgroup and tot jobs running
 	 (have-resources          (car run-limits-info))
 	 (num-running             (list-ref run-limits-info 1))
 	 (num-running-in-jobgroup (list-ref run-limits-info 2))
@@ -647,11 +647,11 @@
 	 ((not items)
 	  (debug:print-info 4 "OUTER COND: (not items)")
 	  (if (and (not (tests:match test-patts (tests:testqueue-get-testname test-record) item-path required: required-tests))
 		   (not (null? tal)))
 	      (loop (car tal)(cdr tal) reg reruns))
-	  (let ((loop-list (runs:process-expanded-tests hed tal reg reruns reglen regfull test-record runname test-name item-path jobgroup max-concurrent-jobs run-id waitons item-path testmode)))
+	  (let ((loop-list (runs:process-expanded-tests hed tal reg reruns reglen regfull test-record runname test-name item-path jobgroup max-concurrent-jobs run-id waitons item-path testmode test-patts required-tests test-registry registry-mutex flags keyvals run-info)))
 	    (apply loop loop-list)))
 
 	 ;; case where an items came in as a list been processed
 	 ((and (list? items)     ;; thus we know our items are already calculated
 	       (not   itemdat))  ;; and not yet expanded into the list of things to be done