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)))

Index: megatest-version.scm
==================================================================
--- megatest-version.scm
+++ megatest-version.scm
@@ -1,7 +1,7 @@
 ;; Always use two or four digit decimal
 ;; 1.01, 1.02...1.10,1.11,1,1101 ... 1.99,2.00..
 
 (declare (unit megatest-version))
 
-(define megatest-version 1.6031)
+(define megatest-version 1.6101)