diff --git a/main.fs b/main.fs
index 8f89eb2..ab687f1 100644
--- a/main.fs
+++ b/main.fs
@@ -268,7 +268,7 @@ S" you feel like throwing some stuff into the pool." set-message
 \ draw-tab draws a single tab for a screen
 : draw-tab ( i -- )
     dup screen @ = if
-    	." >" bl then draw-screen-name ;
+    	." >" else space then draw-screen-name ;
 
 \ draw-tab-bar draws the tab bar. TODO something here seems to be clobbering the stack
 : draw-tab-bar ( x y -- x y )