diff --git a/gui/wireworld/wireworld.tal b/gui/wireworld/wireworld.tal
index 9e3fc3a..c651a72 100644
--- a/gui/wireworld/wireworld.tal
+++ b/gui/wireworld/wireworld.tal
@@ -92,8 +92,8 @@ BRK
 	&no-menu
 
 	( color ) .color LDZ .Mouse/state DEI #01 GTH #00 EQU MUL
-	( cell* ) .Mouse/x DEI2 #02 SFT2 NIP .Mouse/y DEI2 #02 SFT2 NIP
-		get-addr STA
+	( cell* ) .Mouse/x DEI2 #02 SFT2 .Mouse/y DEI2 #02 SFT2 #60 SFT2 ADD2
+		;get-addr/current LDA2 ADD2 STA
 	redraw
 
 BRK
@@ -224,6 +224,8 @@ JMP2r
 
 JMP2r
 
+@phex ( short* -- ) SWP phex/b &b DUP #04 SFT phex/c &c #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
+
 (
 @|assets )