@@ -26,11 +26,11 @@
      (prefix sqlite3 sqlite3:)
      pkts (prefix dbi dbi:)
      )
 
 (declare (unit common))
-
+(declare (uses configf))
 (include "common_records.scm")
 
 
 ;; (require-library margs)
 ;; (include "margs.scm")
@@ -1627,11 +1627,11 @@
 ;; go through the hosts from least recently used to most recently used, pick the first that meets the load criteral from the
 ;; [host-rules] section.
 ;;
 (define (common:get-least-loaded-host hosts-raw host-type configdat)
   (let* ((rdat       (configf:lookup configdat "host-rules" host-type))
-	 (rules      (common:val->alist (or rdat "") convert: #t))   ;; maxnload, maxnjobs, maxjobrate
+	 (rules      (configf:val->alist (or rdat "") convert: #t))   ;; maxnload, maxnjobs, maxjobrate
 	 (maxnload   (common:alist-ref/default 'maxnload rules 1.5)) ;; max normalized load
 	 (maxnjobs   (common:alist-ref/default 'maxnjobs rules 1.5)) ;; max normalized number of jobs
 	 (maxjobrate (common:alist-ref/default 'maxjobrate rules (/ 1 6))) ;; max rate of submitting jobs to a given host in jobs/second
 	 (hosts      (filter (lambda (x)
 			       (string-match (regexp "^\\S+$") x))