diff --git a/gui/notepad/notepad.tal b/gui/notepad/notepad.tal
index b83bafe..fe07846 100644
--- a/gui/notepad/notepad.tal
+++ b/gui/notepad/notepad.tal
@@ -275,7 +275,7 @@ BRK
 
 	get-page
 		DUP2 .selection/from STZ2
-		scap .selection/to STZ2
+		scap #0001 SUB2 .selection/to STZ2
 
 ( >> )
 
@@ -682,15 +682,12 @@ JMP2r
 JMP2r
 	&path ".theme $1
 
-
 (
 @|stdlib )
 
 @msfl ( b* a* len* -- ) STH2 SWP2 EQU2k ?&e &l DUP2k STH2kr ADD2 LDA ROT ROT STA INC2 GTH2k ?&l POP2 POP2 &e POP2r JMP2r
 @msfr ( b* a* len* -- ) STH2 EQU2k ?&e &l DUP2 LDAk ROT ROT STH2kr ADD2 STA #0001 SUB2 LTH2k ?&l POP2 POP2 &e POP2r JMP2r
 @scap ( str* -- end* ) LDAk #00 NEQ [ JMP JMP2r ] &w INC2 LDAk ?&w JMP2r
-@sput ( chr str* -- ) scap INC2k #00 ROT ROT STA STA JMP2r
-@phex ( short* -- ) SWP phex/b &b ( byte -- ) DUP #04 SFT phex/c &c ( char -- ) #0f AND DUP #09 GTH #27 MUL ADD #30 ADD #18 DEO JMP2r
 
 (
 @|assets )