diff --git a/src/left.tal b/src/left.tal
index 67a6cd6..91693d3 100644
--- a/src/left.tal
+++ b/src/left.tal
@@ -1422,21 +1422,24 @@
 	;blinker-icn .Screen/addr DEO2
 	[ LIT2 01 -Screen/sprite ] DEO
 	<draw-symbol-bubble>
-	INC2 .Screen/width DEI2 #0080 SUB2 #02 draw-word-until walk-blank LDAk [ LIT "& ] EQU ?{ draw-sym-field }
+	INC2 .Screen/width DEI2 #0080 SUB2 #02 draw-word-until
+	( ) walk-blank LDAk [ LIT "& ] EQU ?{ draw-sym-field }
 	<draw-symbol-fill>
 	walk-blank #0001 SUB2
 	( members )
 	&>l ( -- )
-		LDAk DUP #00 NEQ SWP [ LIT "@ ] NEQ AND ?{
-			POP2 ,&anchor LDR2 .Screen/x DEO2
+		LDAk [ LIT "@ ] EQU ?&end
+		LDAk ?{
+			&end POP2 ,&anchor LDR2 .Screen/x DEO2
 			#20 !<draw-symbol-frame> }
-		LDAk #20 GTH ?{
-			INC2k LDA2 #21 LTH SWP [ LIT "& ] NEQ ORA ?{
+		LDAk #20 LTH ?{
+			LDAk [ LIT "& ] NEQ ?{
 				[ LIT2 &anchor $2 ] .Screen/x DEO2
-				INC2 INC2 #01 draw-symbol-key walk-blank LDAk [ LIT "@ ] EQU ?{ draw-sym-field }
+				INC2 #01 draw-symbol-key walk-blank
+				( ) LDAk [ LIT "@ ] EQU ?{ draw-sym-field }
 				<draw-symbol-fill>
-				walk-blank #0001 SUB2 !&>l }
-		}
+				walk-blank !&>l }
+		walk-word }
 	INC2 !&>l
 
 @<draw-symbol-frame> ( flip -- )
diff --git a/untitled.txt b/untitled.txt
index 72f89bc..9635c87 100644
--- a/untitled.txt
+++ b/untitled.txt
@@ -5,7 +5,7 @@ a very long line that doesn't quite display on a single screen to test the scrol
 @delete ( -- )
 	[ LIT2 &name $2 ]
 	[ LIT &field -default ]
-	has-length ?&block
+	has-length ?&block [ LIT "@ ]
 	get-from INC2k get-eof NEQ2 ?&single
 	POP2 JMP2r
 	&block ( a -- b )