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