@@ -977,11 +977,11 @@
 			    -1)
 			   (else
 			    (get-df dirpath)))))
 	 (if (> freespc bestsize)
 	     (begin
-	       (set! best     (cons disk-num dirpath))
+	       (set! best     (cons disk-num dirpath))  ;; NOTE: different storage style!
 	       (set! bestsize freespc)))))
      (map car disks))
     (if (and best (> bestsize minsize))
 	best
 	#f))) ;; #f means no disk candidate found