diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index 10f2c66..59f4bfa 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -259,13 +259,15 @@
 		( draw ) ,&x1 LDR2 ,&y1 LDR2 [ LIT &color $1 ] <set-pixel>
 		( x ) [ LIT2 &x1 $2 ] [ LIT2 &x2 $2 ] EQU2
 		( y ) [ LIT2 &y1 $2 ] [ LIT2 &y2 $2 ] EQU2 AND ?&end
-		STH2kr DUP2 ADD2 DUP2 ,&dy LDR2 lts2 ?{
+		STH2kr DUP2 ADD2 DUP2
+		( | hey )
+		,&dy LDR2 lts2 ?{
 			STH2r ,&dy LDR2 ADD2 STH2
 			,&x1 LDR2 [ LIT2 &sx $2 ] ADD2 ,&x1 STR2 }
-		,&dx LDR2 gts2 ?&>while
-	STH2r ,&dx LDR2 ADD2 STH2
-	,&y1 LDR2 [ LIT2 &sy $2 ] ADD2 ,&y1 STR2
-	!&>while
+		,&dx LDR2 gts2 ?{
+			STH2r ,&dx LDR2 ADD2 STH2
+			,&y1 LDR2 [ LIT2 &sy $2 ] ADD2 ,&y1 STR2 }
+		!&>while
 	&end POP2r JMP2r
 
 @snap ( x1* x2* -- x* )