diff --git a/src/main.lisp b/src/main.lisp
index 1babfc1..ba4bfb1 100644
--- a/src/main.lisp
+++ b/src/main.lisp
@@ -56,8 +56,8 @@ etc.) happened"
             (declare (ignore w e))
             (incf-dt)
             (incf-ticks)
+            (scheduled-events:run-scheduled-events *ticks*)
             (when (not (program-events:stop-event-dispatching-p))
-              (scheduled-events:run-scheduled-events *ticks*)
               (program-events:dispatch-program-events))
             (windows:calculate-all +dt+)))))