diff --git a/main.fs b/main.fs
index 55f8474..173e1b4 100644
--- a/main.fs
+++ b/main.fs
@@ -179,6 +179,12 @@ S" you feel like throwing some stuff into the pool." set-message
 	2dup at-xy
 	clear-line get-message type 
 	inc-y ;
+
+\ draw-blank draws a blank line.
+: draw-blank ( x y -- x y )
+	2dup at-xy
+	clear-line
+	inc-y ;
 	
 \ draw-devices draws the number of devices on the screen.
 : draw-devices ( x y -- x y )
@@ -224,7 +230,7 @@ S" you feel like throwing some stuff into the pool." set-message
 
 \ 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-devices draw-message draw-actions clear-xy clear-all then ;
+: draw-screen  any-change? if 1 1 draw-message draw-devices draw-blank draw-actions clear-xy clear-all then ;
 \ : draw-screen clear-all ;
 
 \ main game loop