@@ -1642,10 +1642,62 @@
 	     res))) 
 	(begin
 	  (debug:print-error 0 *default-log-port* "Called without all necessary keys")
 	  #f))))
 
+(define (db:get-run-id dbstruct runname target)
+  (let ((runs (db:simple-get-runs dbstruct runname #f #f target #f))) ;; runpatt count offset target last-update
+    (if (null? runs)
+	#f
+	(simple-run-id (car runs)))))
+
+(define (db:insert-run dbstruct target runname run-meta)
+  (let* ((keys    (db:get-keys dbstruct)))
+    (if (null? runs)
+	;; need to insert run based on target and runname
+	(let* ((targvals (string-split target "/"))
+	       (keystr   (string-intersperse keys ","))
+	       (key?str  (string-intersperse (make-list (length targvals) "?") ","))
+	       (qrystr   (conc "INSERT INTO runs (runname,"keystr") VALUES (?,"key?str")"))
+	       (get-var  (lambda (db qrystr)
+			   (let* ((res #f))
+			     (sqlite3:for-each-row
+			      (lambda row
+				(set res (car row)))
+			      db qrystr)
+			     res))))
+	  (db:create-initial-run-record dbstruct runname target)
+    	  (let* ((run-id (db:get-run-id dbstruct runname target)))
+	    (for-each
+	     (lambda (keyval)
+	       (let* ((fieldname (car keyval))
+		      (getqry    (conc "SELECT "fieldname" FROM runs WHERE id=?;"))
+		      (setqry    (conc "UPDATE runs SET "fieldname"=? WHERE id=?;"))
+		      (val       (cdr keyval))
+		      (valnum    (if (number? val)
+				     val
+				     (if (string? val)
+					 (string->number val)
+					 #f))))
+		 (if (not (member fieldname (cons "runname" keys))) ;; don't attempt to tweak these
+		     (let* ((curr-val (get-var db getqry))
+			    (have-it  (or (equal? curr-val val)
+					  (equal? curr-val valnum))))
+		       (if (not have-it)
+			   (sqlite3:execute db setqry (or valnum val) run-id))))))
+	     run-meta))))))
+  
+(define (db:create-initial-run-record dbstruct runname target)	  
+  (let* ((targvals (string-split target "/"))
+	 (keystr   (string-intersperse keys ","))
+	 (key?str  (string-intersperse (make-list (length targvals) "?") ","))
+	 (qrystr   (conc "INSERT INTO runs (runname,"keystr") VALUES (?,"key?str")")))
+    (db:with-db
+     dbstruct #f #f
+     (lambda (dbdat db)
+       (apply sqlite3:execute db qrystr runname targvals)))))
+
 ;; replace header and keystr with a call to runs:get-std-run-fields
 ;;
 ;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
 ;; runpatts: patt1,patt2 ...
 ;;
@@ -1685,17 +1737,13 @@
 		   qrystr
 		   )))
     (debug:print-info 11 *default-log-port* "db:get-runs END qrystr: " qrystr " keypatts: " keypatts " offset: " offset " limit: " count)
     (vector header res)))
 
-
-(define-record simple-run target id runname state status owner event_time)
-(define-record-printer (simple-run x out)
-  (fprintf out "#,(simple-run ~S ~S ~S ~S)"
-	   (simple-run-target x) (simple-run-id x) (simple-run-runname x) (time->string (seconds->local-time (simple-run-event_time x) ))))
-
 ;; simple get-runs
+;;
+;;  records used defined in dbfile
 ;;
 (define (db:simple-get-runs dbstruct runpatt count offset target last-update)
     (let* ((res       '())
 	   (keys       (db:get-keys dbstruct))
 	   (runpattstr (db:patt->like "runname" runpatt))