Index: /trunk/ccl/level-1/linux-files.lisp
===================================================================
--- /trunk/ccl/level-1/linux-files.lisp	(revision 726)
+++ /trunk/ccl/level-1/linux-files.lisp	(revision 727)
@@ -26,5 +26,6 @@
   (multiple-value-bind (q r)
       (floor n)
-    (unless (zerop r)
+    (if (zerop r)
+      (setq r 0)
       (setq r (floor (* r 1000000000))))
     (values q r)))