@@ -98,12 +98,13 @@
 (define dlg      #f)
 (define max-test-num 0)
 ;; (define *keys*   (open-run-close db:get-keys #f))
 (define *keys*   (cdb:remote-run db:get-keys #f))
 ;; (define *keys*   (db:get-keys   *db*))
-(define *dbkeys*  (map (lambda (x)(vector-ref x 0))
-		      (append *keys* (list (vector "runname" "blah")))))
+
+(define *dbkeys*  (append *keys* (list "runname")))
+
 (define *header*       #f)
 (define *allruns*     '())
 (define *allruns-by-id* (make-hash-table)) ;; 
 (define *runchangerate* (make-hash-table))