diff --git a/dotscape b/dotscape
index b541929..4fc28fd 100755
Binary files a/dotscape and b/dotscape differ
diff --git a/imperative-shell/event-loop.sml b/imperative-shell/event-loop.sml
index 3736efc..4e47e4a 100644
--- a/imperative-shell/event-loop.sml
+++ b/imperative-shell/event-loop.sml
@@ -39,8 +39,8 @@ struct
               AppDraw.drawTriangles (triangleDrawObject, triangleDrawLength)
             val _ = AppDraw.drawButton (buttonDrawObject, buttonDrawLength)
 
-            val _ = Glfw.pollEvents ()
             val _ = Glfw.swapBuffers window
+            val _ = Glfw.pollEvents ()
           in
             draw
               ( drawMailbox