diff --git a/gui/m291/src/m291.tal b/gui/m291/src/m291.tal
index c44d093..722b999 100644
--- a/gui/m291/src/m291.tal
+++ b/gui/m291/src/m291.tal
@@ -131,13 +131,12 @@
 
 @calc-width ( total* curr* -- width* )
 	STH2
-	DUP2 #013c LTH2 ?&ready
-	&scale ( -- )
-	DUP2 #0277 LTH2 ?&almost
-	#01 SFT2 LITr 01 SFT2r !&scale
-	&almost INC2 #01 SFT2 INC2r LITr 01 SFT2r
-	&ready ( -- )
-	LIT2r 00d0 MUL2r STH2r SWP2 DIV2 JMP2r
+	DUP2 #011b LTH2 ?{
+		&scale ( -- )
+		DUP2 #0237 LTH2 ?{
+			#01 SFT2 LITr 01 SFT2r !&scale }
+		INC2 #01 SFT2 INC2r LITr 01 SFT2r }
+	[ LIT2r 00e7 ] MUL2r STH2r SWP2 DIV2 JMP2r
 
 (
 @|events )