Index: f3.scm
==================================================================
--- f3.scm
+++ f3.scm
@@ -5838,11 +5838,11 @@
 ;;  test-names: Comma separated patterns same as test-patts but used in selection 
 ;;              of tests to run. The item portions are not respected.
 ;;              FIXME: error out if /patt specified
 ;;            
 (define (runs:run-tests target runname test-patts user flags #!key (run-count 1)) ;; test-names
-  (let* ((keys               (keys:config-get-fields *configdat*))
+  (let* ((keys               (common:get-fields *configdat*))
 	 (keyvals            (keys:target->keyval keys target))
 	 (run-id             (rmt:register-run keyvals runname "new" "n/a" user (args:get-arg "-contour")))  ;;  test-name)))
 	 ;; (deferred          '()) ;; delay running these since they have a waiton clause
 	 (runconfigf         (conc  *toppath* "/runconfigs.config"))
          (dbfile             (conc  *toppath* "/megatest.db"))
@@ -7940,11 +7940,11 @@
 	    (begin 
 	      (debug:print 0 *default-log-port* "Failed to setup, exiting")
 	      (exit 1)))
 
         
-	(set! keys (keys:config-get-fields *configdat*))
+	(set! keys (common:get-fields *configdat*))
 	;; have enough to process -target or -reqtarg here
 	(if (args:get-arg "-reqtarg")
 	    (let* ((runconfigf (conc  *toppath* "/runconfigs.config")) ;; DO NOT EVALUATE ALL 
 		   (runconfig  (read-config runconfigf #f #t environ-patt: #f)))
 	      (if (hash-table-ref/default runconfig (args:get-arg "-reqtarg") #f)
@@ -9642,11 +9642,11 @@
       alldat))))
 
 
 
 ;; why get the keys from the db? why not get from the *configdat*
-;; using keys:config-get-fields?
+;; using common:get-fields?
 
 (define (db:get-keys alldat)
   (if (alldat-db-keys alldat)
       (alldat-db-keys alldat)
       (let ((res '()))