@@ -2242,10 +2242,45 @@
 	  (set! numruns count))
 	db
 	"SELECT COUNT(id) FROM runs WHERE runname LIKE ? AND state != 'deleted';" runpatt)
        (debug:print-info 11 *default-log-port* "db:get-num-runs END " runpatt)
        numruns))))
+
+;; just get count of runs
+(define (db:get-runs-cnt-by-patt dbstruct runpatt targetpatt keys)
+  (db:with-db
+   dbstruct
+   #f
+   #f
+   (lambda (db)
+     (let ((numruns 0)
+           (qry-str #f)
+           (key-patt "")
+	     	   (keyvals  (if targetpatt (keys:target->keyval keys targetpatt) '())))
+    (for-each (lambda (keyval)
+		(let* ((key    (car keyval))
+		       (patt   (cadr keyval))
+		       (fulkey (conc ":" key))
+		       (wildtype (if (substring-index "%" patt) "like" "glob")))
+		  (if patt
+		      (set! key-patt (conc key-patt " AND " key " " wildtype " '" patt "'"))
+		      (begin
+			(debug:print-error 0 *default-log-port* "searching for runs with no pattern set for " fulkey)
+			(exit 6)))))
+	      keyvals)
+   ; (print  runpatt " -- " key-patt)
+    (set! qry-str (conc "SELECT COUNT(id) FROM runs WHERE state != 'deleted' AND runname  like " runpatt  key-patt))
+  ;  (print qry-str )
+       (debug:print-info 11 *default-log-port* "db:get-num-runs START " runpatt)
+;       (sqlite3:for-each-row 
+;					 (lambda (count)
+;	  			    (set! numruns count))
+;				db
+;				qry-str)
+       (debug:print-info 11 *default-log-port* "db:get-num-runs END " runpatt)
+       numruns))))
+
 
 ;; (sqlite3#fold-row proc3670 init3671 db-or-stmt3672 . params3673)>
 ;; 
 (define (db:get-raw-run-stats dbstruct run-id)
   (db:with-db