diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 49a772f..fc5de78 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -139,10 +139,11 @@
 	;&buf LDAk [ LIT "@ ] EQU ?{ POP2 JMP2r }
 	INC2 LDAk
 	( | route )
-	DUP [ LIT "S ] EQU ?handle-status
 	DUP [ LIT "F ] EQU ?handle-frame
+	DUP [ LIT "S ] EQU ?handle-status
 	DUP [ LIT "I ] EQU ?handle-id3
 	DUP [ LIT "P ] EQU ?handle-pause
+	DUP [ LIT "R ] EQU ?handle-revision
 	POP
 	( | not-handled )
 	<perr>
@@ -163,10 +164,9 @@
 
 @<skip-prev> ( -- )
 	.lines/tracks LDZ ?{ JMP2r }
-	.selection/track LDZ #01 SUB DUP #ff NEQ ?{
+	.selection/track LDZ #01 SUB INCk ?{
 		POP .lines/tracks LDZ #01 SUB }
 	!<pick>/tracks
-	JMP2r
 
 @<skip-next> ( -- )
 	.lines/tracks LDZ ?{ JMP2r }
@@ -180,12 +180,14 @@
 (
 @|events )
 
+@handle-revision ( buf* char -- )
+	POP POP2 !message/<new>
+
 @handle-status ( buf* char -- )
 	[ LIT2 01 -playing ] STZ
 	( | force redraws )
-	fit-window POP <perr>
-	#0a19 DEO
-	<redraw-player> !message/<new>
+	<fit-window>
+	POP POP2 <redraw-player> !message/<new>
 
 @handle-frame ( buf* char -- )
 	POP
@@ -256,7 +258,7 @@
 	POP2
 	( >> )
 
-@fit-window ( -- )
+@<fit-window> ( -- )
 	#00 count-lines
 	( empty ) DUP #00 EQU ADD #40 SFT2
 	( no-folder spacer ) has-spacer #00 EQU ?{ #0008 ADD2 }
@@ -326,7 +328,7 @@
 	;dict/no-artist ;id3/artist <scpy>
 	;dict/no-album ;id3/album <scpy>
 	[ LIT2 01 -playing ] STZ
-	fit-window
+	<fit-window>
 	( | request )
 	;dict/load-cmd <pstr>
 	;path <pstr>