@@ -1,6 +1,6 @@
-;; Copyright 2006-2017, Matthew Welland.
+>;; Copyright 2006-2017, Matthew Welland.
 ;; 
 ;; This file is part of Megatest.
 ;; 
 ;;     Megatest is free software: you can redistribute it and/or modify
 ;;     it under the terms of the GNU General Public License as published by
@@ -47,11 +47,10 @@
 (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")
 
 (use (prefix sqlite3 sqlite3:) srfi-1 posix regex regex-case srfi-69 (prefix base64 base64:)
      readline apropos json http-client directory-utils typed-records
      http-client srfi-18 extras format)
@@ -1092,12 +1091,11 @@
 ;;======================================================================
 
 ;; since several actions can be specified on the command line the removal
 ;; is done first
 (define (operate-on action #!key (mode #f)(target-in #f)(runname-in #f)(keys-in #f)(keyvals-in #f)) ;; #f is "use default"
-  (let* ((runrec (runs:runrec-make-record))
-	 (target (or target-in   (common:args-get-target))) ;; eventually get rid of the call to common:args-get-target
+  (let* ((target (or target-in   (common:args-get-target))) ;; eventually get rid of the call to common:args-get-target
 	 (runname (or runname-in
 		      (args:get-arg "-runname"))) ;; eventually get rid of the get-arg calls
 	 (testpatt (or (args:get-arg "-testpatt")
 		       (and (eq? action 'archive) ;; if it is an archive command fallback to MT_TEST_NAME and MT_ITEMPATH
 			    (common:get-full-test-name))
@@ -1250,14 +1248,10 @@
     (if indx
 	(if (>= indx (vector-length datavec))
 	    #f ;; index too high, should raise an error I suppose
 	    (vector-ref datavec indx))
 	#f)))
-
-
-
-
 
 (when (args:get-arg "-testdata-csv")
   (if (launch:setup)
       (let* ((keys        (rmt:get-keys)) ;; (db:get-keys dbstruct))
              (runpatt     (or (args:get-arg "-runname") "%"))