diff --git a/scripts/ch9-06-str-funcs-mod.rsc b/scripts/ch9-06-str-funcs-mod.rsc
index 7047916..36d424e 100644
--- a/scripts/ch9-06-str-funcs-mod.rsc
+++ b/scripts/ch9-06-str-funcs-mod.rsc
@@ -16,7 +16,7 @@
 
 # function to remove last char from a string
 #
-# e.g. :local choppedVar [$chopStrFunc "string with extra char,"]
+# e.g. :local ChoppedVar [$chopStrFunc "string with extra char,"]
 #
 :global ChopStrFunc do={
    :return [ :pick $1 0 ( [ :len $1 ] -1 ) ];