diff --git a/basis/core-foundation/run-loop/run-loop.factor b/basis/core-foundation/run-loop/run-loop.factor
index 4a095f173c..22214cc941 100644
--- a/basis/core-foundation/run-loop/run-loop.factor
+++ b/basis/core-foundation/run-loop/run-loop.factor
@@ -105,7 +105,9 @@ TUPLE: run-loop fds sources timers ;
     >CFAbsoluteTime CFRunLoopTimerSetNextFireDate ;
 
 : reset-timer ( timer -- )
-    sleep-time 1000 /f system-micros + (reset-timer) ;
+    sleep-time dup
+    [ 1000 /f system-micros + (reset-timer) ]
+    [ 2drop ] if ;
 
 PRIVATE>