Index: generic/nsf.c =================================================================== diff -u -N -r2638eb962eec177de69d8ccd99876d4321d9e1fb -rca7f760907cd2ec83db3c852402d8d8cfc2d130a --- generic/nsf.c (.../nsf.c) (revision 2638eb962eec177de69d8ccd99876d4321d9e1fb) +++ generic/nsf.c (.../nsf.c) (revision ca7f760907cd2ec83db3c852402d8d8cfc2d130a) @@ -3410,7 +3410,7 @@ * final methodName, */ cmd = Tcl_GetCommandFromObj(interp, methodHandleObj); - if (methodName1 != NULL) {*methodName1 = Tcl_DStringValue(methodNameDs);} + if (methodNameDs != NULL && methodName1 != NULL) {*methodName1 = Tcl_DStringValue(methodNameDs);} /*fprintf(stderr, "... methodname1 '%s' cmd %p\n", Tcl_DStringValue(methodNameDs), cmd);*/ DECR_REF_COUNT(methodHandleObj);