@@ -13,11 +13,11 @@
 ;; Config file handling
 ;;======================================================================
 
 (use regex regex-case) ;;  directory-utils)
 (declare (unit configf))
-;; (declare (uses process))
+(declare (uses process))
 
 (include "common_records.scm")
 
 ;; return list (path fullpath configname)
 (define (find-config configname #!key (toppath #f))
@@ -47,11 +47,11 @@
   (handle-exceptions
    exn
    (begin
      (debug:print 0 "ERROR: problem evaluating \"" str "\" in the shell environment")
      #f)
-   (let ((cmdres (cmd-run->list (conc "echo " str))))
+   (let ((cmdres (process:cmd-run->list (conc "echo " str))))
      (if (null? cmdres) ""
 	 (caar cmdres)))))
 
 ;;======================================================================
 ;; Make the regexp's needed globally available
@@ -118,11 +118,11 @@
 	      res))
 	res)))
 
 ;; Run a shell command and return the output as a string
 (define (shell cmd)
-  (let* ((output (cmd-run->list cmd))
+  (let* ((output (process:cmd-run->list cmd))
 	 (res    (car output))
 	 (status (cadr output)))
     (if (equal? status 0)
 	(let ((outres (string-intersperse 
 		       res
@@ -238,11 +238,11 @@
 							      #f #f)))
 	       (configf:key-sys-pr ( x key cmd      ) (if allow-system
 							  (let ((alist    (hash-table-ref/default res curr-section-name '()))
 								(val-proc (lambda ()
 									    (let* ((start-time (current-seconds))
-										   (cmdres     (cmd-run->list cmd))
+										   (cmdres     (process:cmd-run->list cmd))
 										   (delta      (- (current-seconds) start-time))
 										   (status     (cadr cmdres))
 										   (res        (car  cmdres)))
 									      (debug:print-info 4 "" inl "\n => " (string-intersperse res "\n"))
 									      (if (not (eq? status 0))