diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index e112d9e..3c56728 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -213,17 +213,8 @@
 
 @<move> ( mod -- )
 	.selection LDZ ADD
-	( | follow )
-	DUP .lines/folders LDZ SUB
-	( up ) DUP #80 LTH ?{
-		.selection/scroll LDZ ADD #80 LTH ?{ POP !<redraw-dir> }
-		.selection/scroll LDZk #01 SUB SWP STZ
-		POP !<redraw-dir> }
-	( down ) DUP #18 LTH ?{
-		.selection/scroll LDZ ADD .lines/tracks LDZ NEQ ?{ POP !<redraw-dir> }
-		.selection/scroll LDZk INC SWP STZ
-		POP !<redraw-dir> }
-	POP
+	( top ) DUP .selection/scroll LDZ #ff00 NEQ2 ?{ POP JMP2r }
+	( bottom ) DUP .lines/folders LDZ .lines/tracks LDZ ADD NEQ ?{ POP JMP2r }
 	( >> )
 
 @<select> ( id -- )