diff --git a/gui/catty/src/catty.tal b/gui/catty/src/catty.tal
index ee8bd36..dec219e 100644
--- a/gui/catty/src/catty.tal
+++ b/gui/catty/src/catty.tal
@@ -46,6 +46,7 @@
 @|input )
 
 @input/<send> ( -- )
+	;message/pen LDA2 #0010 ADD2 ;message/pen STA2
 	;&buf .Console/addr DEO2
 	[ LIT2 01 -Console/exec ] DEO
 	JMP2r
@@ -65,10 +66,10 @@
 
 @message/<parse> ( -- )
 	#00 /<append>
-	;&buf #01 <draw-uf2>
 	#0010 .Screen/x DEO2
-	[ LIT2 &pen 0010 ] #0010 ADD2 DUP2 ,&pen STR2
+	[ LIT2 &pen 0010 ] DUP2 #0010 ADD2 ,&pen STR2
 	.Screen/y DEO2
+	;&buf #01 <draw-uf2>
 	( >> )
 
 @message/<new> ( -- )