diff --git a/source/tcl_public.c b/source/tcl_public.c
index d3f16be..7f3aff4 100644
--- a/source/tcl_public.c
+++ b/source/tcl_public.c
@@ -578,7 +578,7 @@ int Tcl_GetKeyedListField (tcl_interp, fieldName, keyedList, fieldValuePtr)
 			fieldValue = ckalloc (valueSize + 1);
 			if (braced) 
 			{
-	        		strmcpy (fieldValue, valuePtr, valueSize);
+	        		strlcpy (fieldValue, valuePtr, valueSize);
 				fieldValue [valueSize] = 0;
 			}
 			else