Index: servermod.scm
==================================================================
--- servermod.scm
+++ servermod.scm
@@ -136,11 +136,11 @@
 		   (create-directory (conc areapath "/logs") #t)
 		   (exn (i/o file)(debug:print 0 *default-log-port* "ERROR: Cannot create directory at " (conc areapath "/logs")))
 		   (exn ()(debug:print 0 *default-log-port* "ERROR: Unknown error attemtping to get server list. exn=" exn)))
 		  (directory-exists? (conc areapath "/logs")))
 		'()))
-	(let* ((server-logs   (glob (conc areapath "/logs/server-*.log")))
+	(let* ((server-logs   (glob (conc areapath "/logs/server-[0-9]*.log")))
 	       (num-serv-logs (length server-logs)))
 	  (if (null? server-logs)
 	      '()
 	      (let loop ((hed  (car server-logs))
 			 (tal  (cdr server-logs))

Index: tasks.scm
==================================================================
--- tasks.scm
+++ tasks.scm
@@ -505,20 +505,24 @@
 (define (tasks:find-task-queue-records dbstruct target run-name test-patt state-patt action-patt)
   ;; (handle-exceptions
   ;;  exn
   ;;  '()
   ;;  (sqlite3:first-row
-  (let ((db  (db:get-db dbstruct))
-	(res '()))
-    (sqlite3:for-each-row 
-     (lambda (a . b)
-       (set! res (cons (cons a b) res)))
-     db "SELECT id,action,owner,state,target,name,testpatt,keylock,params FROM tasks_queue 
+  (let (;; (db  (db:get-db dbstruct))
+  	(res '()))
+    (db:with-db
+     dbstruct #f #t
+     (lambda (db)
+       (sqlite3:for-each-row 
+	(lambda (a . b)
+	  (set! res (cons (cons a b) res)))
+	db
+	"SELECT id,action,owner,state,target,name,testpatt,keylock,params FROM tasks_queue 
            WHERE
               target = ? AND name = ? AND state LIKE ? AND action LIKE ? AND testpatt LIKE ?;"
-     target run-name state-patt action-patt test-patt)
-    res)) ;; )
+	target run-name state-patt action-patt test-patt)
+       res)))) ;; )
 
 ;; kill any runner processes (i.e. processes handling -runtests) that match target/runname
 ;; 
 ;; do a remote call to get the task queue info but do the killing as self here.
 ;;