diff -a -x Root -x Repository -x Tag -x Entries -x Entries.Log -x .svn -x '*.rej' -x '*.orig' -N -r -u ./src/daemon/driver/driverInteractive.ml ./src/daemon/driver/driverInteractive.ml
--- ./src/daemon/driver/driverInteractive.ml	2006-06-27 23:20:28.000000000 +0200
+++ ./src/daemon/driver/driverInteractive.ml	2006-07-12 18:39:02.000000000 +0200
@@ -93,6 +93,7 @@
   let dir_full dir mb =
     match Unix32.diskfree dir with
     | None -> false
+    | Some v when ((Unix32.filesystem dir = "NFS_SUPER_MAGIC") && v = zero) -> false
     | Some v -> v < megabytes mb
   in
 
diff -a -x Root -x Repository -x Tag -x Entries -x Entries.Log -x .svn -x '*.rej' -x '*.orig' -N -r -u ./src/utils/lib/unix32.ml ./src/utils/lib/unix32.ml
--- ./src/utils/lib/unix32.ml	2006-05-25 21:47:25.000000000 +0200
+++ ./src/utils/lib/unix32.ml	2006-07-12 18:31:17.000000000 +0200
@@ -1794,14 +1794,22 @@
 (* percentage of used disk space *)
   match diskfree dir, disktotal dir with
   | Some dfree, Some dtotal ->
-      Some (Int64.to_int (100L -- (dfree ** 100L // dtotal)))
+      begin
+	try
+	  Some (Int64.to_int (100L -- (dfree ** 100L // dtotal)))
+        with Division_by_zero -> None
+      end
   | _ -> None
 
 let percentfree dir =
 (* percentage of free disk space *)
   match diskfree dir, disktotal dir with
   | Some dfree, Some dtotal ->
-      Some (Int64.to_int (dfree ** 100L // dtotal))
+      begin
+	try
+          Some (Int64.to_int (dfree ** 100L // dtotal))
+	with Division_by_zero -> None
+      end
   | _ -> None
 
 let filesystem dir =
