@@ -30,10 +30,11 @@
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!
 
 (include "common_records.scm")
 (include "key_records.scm")
 (include "db_records.scm")
+(include "run_records.scm")
 (include "megatest-fossil-hash.scm")
 
 (let ((debugcontrolf (conc (get-environment-variable "HOME") "/.megatestrc")))
   (if (file-exists? debugcontrolf)
       (load debugcontrolf)))
@@ -442,11 +443,11 @@
 ;;======================================================================
 
 ;; since several actions can be specified on the command line the removal
 ;; is done first
 (define (operate-on action)
-  (let* ((runrec (runs:create-runrecord))
+  (let* ((runrec (runs:runrec-make-record))
 	 (target (or (args:get-arg "-reqtarg")
 		     (args:get-arg "-target"))))
     (cond
      ((not target)
       (debug:print 0 "ERROR: Missing required parameter for " action ", you must specify -target or -reqtarg")