diff --git a/src/manifest.tal b/src/manifest.tal
index a63fcf6..a0a2a8d 100644
--- a/src/manifest.tal
+++ b/src/manifest.tal
@@ -315,19 +315,12 @@ JMP2r
 @draw-str ( str* -- nextstr* )
 
 	&while
-		LDAk ,draw-chr JSR
+		LDAk ;draw-chr JSR2
 		INC2 LDAk ,&while JCN
 	INC2
 
 JMP2r
 
-@draw-chr ( char -- )
-
-	#20 SUB #00 SWP #30 SFT2 ;font ADD2 &raw .Screen/addr DEO2
-	[ LIT &color 01 ] .Screen/sprite DEO
-
-JMP2r
-
 ( theme )
 
 @load-theme ( -- )
diff --git a/src/nasu.tal b/src/nasu.tal
index 544e9bd..63a4edd 100644
--- a/src/nasu.tal
+++ b/src/nasu.tal
@@ -1056,6 +1056,19 @@ JMP2r
 
 JMP2r
 
+@draw-chr ( char -- )
+
+	#20 SUB #00 SWP #30 SFT2 ;font ADD2 &raw .Screen/addr DEO2
+	[ LIT &color 01 ] .Screen/sprite DEO
+
+JMP2r
+
+@get-strw ( str* -- width* )
+
+	;slen JSR2 #30 SFT2
+
+JMP2r
+
 ( file )
 
 @file-new ( -- )