@@ -290,14 +290,15 @@
 	 (bestsize 0))
     (if disks 
 	(for-each 
 	 (lambda (disk-num)
 	   (let* ((dirpath    (cadr (assoc disk-num disks)))
-		  (freespc    (if (directory? dirpath)
+		  (freespc    (if (and (directory? dirpath)
+				       (file-write-access? dirpath))
 				  (get-df dirpath)
 				  (begin
-				    (debug:print 0 "WARNING: path " dirpath " in [disks] section not valid")
+				    (debug:print 0 "WARNING: path " dirpath " in [disks] section not valid or writable")
 				    0))))
 	     (if (> freespc bestsize)
 		 (begin
 		   (set! best     dirpath)
 		   (set! bestsize freespc)))))