diff --git a/main.fs b/main.fs
index 5ea3622..703e0ea 100644
--- a/main.fs
+++ b/main.fs
@@ -258,13 +258,13 @@ S" you feel like throwing some stuff into the pool." set-message
 \ clear-xy clears the x and y positions from the stack
 : clear-xy ( x y -- ) drop drop ;
 
-\ draw-screen redraws the screen, but only if there's been a change.
-\ 1 1 is the starting position to draw from.
-: draw-screen  any-change? if 1 1 draw-message draw-devices draw-blank draw-actions clear-xy clear-all then ;
+\ draw-screen redraws the devices screen, but only if there's been a change.
+\ ( x y -- )
+: draw-devices-screen  any-change? if draw-message draw-devices draw-blank draw-actions clear-xy clear-all else 2drop then ;
 \ : draw-screen clear-all ;
 
 \ main game loop
-: game-loop  begin wait-tick game-tick handle-input draw-screen 0 until ;
+: game-loop  begin wait-tick game-tick handle-input 1 1 draw-devices-screen 0 until ;
 
 \ for use in the debugging shell
 : restart page game-loop ;