Index: db.scm
==================================================================
--- db.scm
+++ db.scm
@@ -1926,11 +1926,11 @@
      #f
      #f
      (lambda (db)
        (dbi:for-each-row
 	(lambda (output)
-	  (let ((targ (cons output)))
+	  (let ((targ  (vector->list output)))
 	    (if (not (hash-table-ref/default seen targ #f))
 		(begin
 		  (hash-table-set! seen targ #t)
 		  (set! res (cons (apply vector targ) res))))))
 	db
@@ -2136,13 +2136,10 @@
 			  (string-intersperse remfields ","))))
     (debug:print-info 11 *default-log-port* "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
     ;; (db:delay-if-busy dbdat)
     (dbi:for-each-row
       (lambda (output)
-          ;;(print "Output: " output)
-          ;;(print "A: " a)
-          ;;(print "X: " x)
            (set! res output))
      db 
      (conc "SELECT " keystr " FROM runs WHERE id=? AND state != 'deleted';")
      run-id)
     (debug:print-info 11 *default-log-port* "db:get-run-info run-id: " run-id " header: " header " keystr: " keystr)
@@ -3554,13 +3551,14 @@
 	 (qrystr  (string-intersperse (map (lambda (x)(conc x "=?")) keys) " AND "))
 	 (keyvals #f)
 	 (tests-hash (make-hash-table)))
     ;; first look up the key values from the run selected by run-id
     ;; (db:delay-if-busy dbdat)
+    (print selstr)
     (dbi:for-each-row
     (lambda (output) 
-       (set! keyvals (cons output)))
+       (set! keyvals (vector->list output)))
      db
      (conc "SELECT " selstr " FROM runs WHERE id=? ORDER BY event_time DESC;") run-id)
     (if (not keyvals)
 	'()
 	(let ((prev-run-ids '()))