1 files changed, 2 insertions, 2 deletions
diff --git a/jim.c b/jim.c
index 5949bf8..17f41f0 100644
--- a/jim.c
+++ b/jim.c
@@ -4368,13 +4368,13 @@ Jim_Obj *Jim_NewReference(Jim_Interp *interp, Jim_Obj *objPtr, Jim_Obj *tagPtr,
     refObjPtr->internalRep.refValue.id = interp->referenceNextId;
     refObjPtr->internalRep.refValue.refPtr = refPtr;
     interp->referenceNextId++;
-    /* Set the tag. Trimmered at JIM_REFERENCE_TAGLEN. Everything
+    /* Set the tag. Trimmed at JIM_REFERENCE_TAGLEN. Everything
      * that does not pass the 'isrefchar' test is replaced with '_' */
     tag = Jim_GetString(tagPtr, &tagLen);
     if (tagLen > JIM_REFERENCE_TAGLEN)
         tagLen = JIM_REFERENCE_TAGLEN;
     for (i = 0; i < JIM_REFERENCE_TAGLEN; i++) {
-        if (i < tagLen)
+        if (i < tagLen && isrefchar(tag[i]))
             refPtr->tag[i] = tag[i];
         else
             refPtr->tag[i] = '_';