diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 643fe99..2d037f9 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -214,7 +214,17 @@
 @<move> ( mod -- )
 	.selection LDZ ADD INCk ?{
 		POP count-lines #01 SUB !<select> }
-	count-lines DIVk MUL SUB
+	( | 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
 	( >> )
 
 @<select> ( id -- )