diff --git a/source/tcl_public.c b/source/tcl_public.c
index 51a3121..d3f16be 100644
--- a/source/tcl_public.c
+++ b/source/tcl_public.c
@@ -453,7 +453,7 @@ Tcl_GetKeyedListKeys (tcl_interp, subFieldName, keyedList, keysArgcPtr,
                         NULL);
         TclFindElement (tcl_interp, fieldPtr, &keyPtr, &dummyPtr, &keySize, NULL);
         keyArgv [idx++] = nextByte;
-        strmcpy (nextByte, keyPtr, keySize);
+        strlcpy (nextByte, keyPtr, keySize);
         nextByte [keySize] = '\0';
         nextByte += keySize + 1; 
     }