diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index 4ff0547..ba9ec37 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -250,9 +250,10 @@
 	,&x2 STR2
 	STH2
 	STH2
-	( dx ) SWP2r ,&x2 LDR2 OVR2r STH2r SUB2 abs2 ,&dx STR2
+	( dx ) ,&x2 LDR2 STH2kr SUB2 abs2 ,&dx STR2
+	( sx ) #0001 #ffff STH2kr ,&x2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sx STR2
+	( y x -> x y ) SWP2r
 	( dy ) #0000 ,&y2 LDR2 STH2kr SUB2 abs2 SUB2 ,&dy STR2
-	( sx ) #0001 #ffff OVR2r STH2r ,&x2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sx STR2
 	( sy ) #0001 #ffff STH2kr ,&y2 LDR2 lts2 [ JMP SWP2 POP2 ] ,&sy STR2
 	,&dx LDR2 ,&dy LDR2 ADD2
 	&>while ( -- )