diff --git a/src/left.tal b/src/left.tal
index 4f06701..1b42d0e 100644
--- a/src/left.tal
+++ b/src/left.tal
@@ -257,27 +257,27 @@
 
 @on-mouse-textarea ( x* -> )
 	POP2 [ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;cursor-icn <update-cursor>
-	.Mouse/state DEI [ LIT &last $1 ]
+	[ LIT2 &last $1 -Mouse/state ] DEI DUP ,&last STR
 	( ) ANDk ?&on-drag
-	( ) DUP2 #0100 EQU2 ?&on-down1
-	( ) DUP2 #0200 EQU2 ?&on-down2
-	( ) DUP2 #0400 EQU2 ?&on-down3
-	&end POP ,&last STR
-	BRK
+	NIP
+	( ) DUP #01 EQU ?&on-down1
+	( ) DUP #02 EQU ?&on-down2
+	( ) DUP #04 EQU ?&on-down3
+	POP BRK
 	&on-down1 ( a b -> )
 	[ LIT2 04 -Controller/button ] DEI EQU ?&on-drag
 	touch-to-addr <select-a>
-	!&end
+	POP BRK
 	&on-drag ( a b -> )
 	touch-to-addr <select-b>
-	!&end
+	POP BRK
 	&on-down2 ( a b -> )
 	touch-to-addr <select-symbol>
 	[ LIT2 00 -Mouse/state ] DEO
-	!&end
+	POP BRK
 	&on-down3 ( a b -> )
 	capture-selection [ LIT2 00 -Mouse/state ] DEO
-	!&end
+	POP BRK
 
 @on-mouse-scrollbar ( x* -> )
 	[ LIT2 00 -Mouse/state ] DEI NEQ #42 ADD ;cursor-icn <update-cursor>
@@ -1311,7 +1311,8 @@
 		<draw-utf8-glyph>
 		next-glyph LDAk #20 GTH ?&>w
 	&end ( str* -- )
-	POP2 ;marker-icns/end !<draw-marker-cap>
+	POP2 ;marker-icns/end
+	( >> )
 
 @<draw-marker-cap> ( addr* -- )
 	.Screen/addr DEO2