@@ -107,14 +107,10 @@
 			work-area
 			(rmt:test-get-rundir-from-test-id test-id))))
     (debug:print 3 "TEST PATH: " test-path)
     (open-test-db test-path)))
 
-(define (rmt:testmeta-get-record testname)
-  (list->vector
-   (rmt:send-receive 'testmeta-get-record (list testname))))
-
 ;; WARNING: This currently bypasses the transaction wrapped writes system
 (define (rmt:test-set-state-status-by-id test-id newstate newstatus newcomment)
   (rmt:send-receive 'test-set-state-status-by-id (list test-id newstate newstatus newcomment)))
 
 
@@ -210,11 +206,17 @@
 (define (rmt:get-runs-by-patt keys runnamepatt targpatt offset limit)
   (let* ((res  (rmt:send-receive 'get-runs-by-patt (list runpatt count offset keypatts)))
 	 (hedr (car res))
 	 (data (cadr res)))
     (vector hedr (map list->vector data))))
-  
+
+(define (rmt:lock/unlock-run run-id lock unlock user)
+  (rmt:send-receive 'lock/unlock-run (list run-id lock unlock user)))
+
+(define (rmt:update-run-event_time run-id)
+  (rmt:send-receive 'update-run-event_time (list run-id)))
+
 ;;======================================================================
 ;;  S T E P S
 ;;======================================================================
 
 ;; Getting steps is more complicated.
@@ -239,5 +241,15 @@
 (define (rmt:read-test-data test-id categorypatt #!key (work-area #f)) 
   (let ((tdb  (rmt:open-test-db-by-test-id test-id work-area: work-area)))
     (if tdb
 	(tdb:read-test-data tdb test-id categorypatt)
 	'())))
+
+(define (rmt:testmeta-add-record testname)
+  (rmt:send-receive 'testmeta-add-record (list testname)))
+
+(define (rmt:testmeta-get-record testname)
+  (list->vector
+   (rmt:send-receive 'testmeta-get-record (list testname))))
+
+(define (rmt:testmeta-update-field test-name fld val)
+  (rmt:send-receive 'testmeta-update-field (list test-name fld val)))