Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -673,11 +673,11 @@
 ;; with free-space-script /path/to/some/script.sh
 ;;
 (define (get-df path)
   (if (configf:lookup *configdat* "setup" "free-space-script")
       (with-input-from-pipe 
-       (configf:lookup *configdat* "setup" "free-space-script")
+       (conc (configf:lookup *configdat* "setup" "free-space-script") " " path)
        (lambda ()
 	 (let ((res (read-line)))
 	   (if (string? res)
 	       (string->number res)))))
       (get-unix-df path)))