diff --git a/main.fs b/main.fs
index a407952..8506501 100644
--- a/main.fs
+++ b/main.fs
@@ -215,6 +215,10 @@ S" you feel like throwing some stuff into the pool." set-message
 		1 of ." Garden " endof
 	endcase ;
 
+\ draw-tab-keys draws the keyboard bindings for switching screens.
+: draw-tab-keys 
+	." (use < and > to switch tabs) " ;
+
 \ draw-tab-bar draws the tab bar. TODO make this into smaller words
 : draw-tab-bar ( x y -- )
 	2dup at-xy
@@ -227,7 +231,7 @@ S" you feel like throwing some stuff into the pool." set-message
 			then
 			draw-screen-name 
 		loop inc-y 
-	then ;
+	then draw-tab-keys ;
 
 \ draw-message draws the stored message on the screen.
 : draw-message ( x y -- x y )