diff --git a/gui/notepad/spritesheet10x10.chr b/gui/notepad/spritesheet10x10.chr
index 2e1ebc5..d9c4ae0 100644
Binary files a/gui/notepad/spritesheet10x10.chr and b/gui/notepad/spritesheet10x10.chr differ
diff --git a/gui/notepad/src/assets.tal b/gui/notepad/src/assets.tal
index fed2067..2ab4c90 100644
--- a/gui/notepad/src/assets.tal
+++ b/gui/notepad/src/assets.tal
@@ -13,6 +13,9 @@
 @mouse-icn [
 	80c0 e0f0 f8fc feff f8d8 8c0c 0606 0000 ]
 
+@pen-icn [
+	c0e0 9090 4848 2424 1212 0909 0600 0000 ]
+
 @bar-icn &a [
 	0000 007e 007e 007e 007e 007e 007e 0000 ]
 	&b [
diff --git a/gui/notepad/src/notepad.tal b/gui/notepad/src/notepad.tal
index f982bad..7c06864 100644
--- a/gui/notepad/src/notepad.tal
+++ b/gui/notepad/src/notepad.tal
@@ -117,7 +117,7 @@
 	POP BRK
 
 @on-mouse-sketch ( -> )
-	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;mouse-icn <update-cursor>
+	[ LIT2 00 -Mouse/state ] DEI NEQ #41 ADD ;pen-icn <update-cursor>
 	( | handle states )
 	[ LIT &last $1 ] .Mouse/state DEI DUP ,&last STR
 	( ) DUP2 #0100 NEQ2 ?{ file-save }
@@ -200,6 +200,8 @@
 
 @toggle-sketch ( -- )
 	.selection/sketch LDZk #01 EOR SWP STZ
+	#41 ;pen-icn ;caret-icn .selection/sketch LDZ ?{ SWP2 }
+	POP2 <update-cursor>
 	JMP2r
 
 @erase-sketch ( -- )