Index: /trunk/source/level-1/linux-files.lisp
===================================================================
--- /trunk/source/level-1/linux-files.lisp	(revision 13413)
+++ /trunk/source/level-1/linux-files.lisp	(revision 13414)
@@ -136,5 +136,5 @@
           (let* ((now (get-internal-real-time))
                  (stop (+ now
-                          (* secs 1000)
+                          (* secs internal-time-units-per-second)
                           millis)))
             (loop