Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -523,11 +523,11 @@
 	      (car df-results))
     freespc))
   
 ;; paths is list of lists ((name path) ... )
 ;;
-(define (common:get-disk-with-most-free-space disks minspace)
+(define (common:get-disk-with-most-free-space disks minsize)
   (let ((best     #f)
 	(bestsize 0))
     (for-each 
      (lambda (disk-num)
        (let* ((dirpath    (cadr (assoc disk-num disks)))

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -539,11 +539,11 @@
 		    (system (conc "ln -sf " tmpfile " " targfile))
 		    )))))))
 
 (define (get-best-disk confdat)
   (let* ((disks    (hash-table-ref/default confdat "disks" #f))
-	 (minspace (let ((m (configf:lookup "setup" "minspace")))
+	 (minspace (let ((m (configf:lookup confdat "setup" "minspace")))
 		     (string->number (or m "10000")))))
     (if disks 
 	(let ((res (common:get-disk-with-most-free-space disks minspace))) ;; min size of 1000, seems tad dumb
 	  (if res
 	      (cdr res)