Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 13414)
+++ /trunk/source/level-1/linux-files.lisp	(revision 13415)
@@ -150,5 +150,5 @@
                   (let* ((diff (- stop now)))
                     (multiple-value-bind (remaining-seconds remaining-millis)
-                        (floor diff 1000)
+                        (floor diff internal-time-units-per-second)
                       (setq secs remaining-seconds
                             millis remaining-millis)))))))))))