diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index 5142939..6961e5f 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -590,11 +590,13 @@
 	#0a DIVk MUL SUB [ LIT "0 ] ADD !<draw-glyph>
 
 @<clear-line> ( -- )
-	#0000 .Screen/x DEO2
+	[ LITr -Screen/y ] DEI2r
+	( ) #0000 .Screen/x DEO2
 	;fill-icn .Screen/addr DEO2
 	[ LIT2 f2 -Screen/auto ] DEO
-	[ LIT2 00 -Screen/sprite ] DEOk DEOk #0080 .Screen/x DEO2
-	.Screen/y DEI2 #0008 SUB2 .Screen/y DEO2
+	[ LIT2 00 -Screen/sprite ] DEOk DEOk
+	( ) [ LITr -Screen/y ] DEO2r
+	#0080 .Screen/x DEO2
 	DEOk DEO
 	JMP2r