Index: generic/nsf.c
===================================================================
diff -u -r369069ef5cf2f2c76fdbe78d865618f136e8b341 -r72a0a42869e8749c4903014dd6961009acb24dbb
--- generic/nsf.c	(.../nsf.c)	(revision 369069ef5cf2f2c76fdbe78d865618f136e8b341)
+++ generic/nsf.c	(.../nsf.c)	(revision 72a0a42869e8749c4903014dd6961009acb24dbb)
@@ -22632,12 +22632,13 @@
 
   if (c == '%') {
     Tcl_Obj    *listObj = NULL, **listElements;
-    int        nrArgs = objc-1, nrPosArgs = objc - firstPosArg, nrElements = 0;
-    char       c1, *firstActualArgument = nrArgs > 0 ? ObjStr(objv[1]) : NULL;
-    const char *c1Ptr = &c1;
+    int         nrArgs = objc-1, nrPosArgs = objc - firstPosArg, nrElements = 0;
+    char        c1, *firstActualArgument = nrArgs > 0 ? ObjStr(objv[1]) : NULL;
+    const char *c1Ptr;
 
     c = *++ForwardArgString;
-    c1 = *(ForwardArgString+1);
+    c1Ptr = ForwardArgString + 1;
+    c1 = *c1Ptr;
 
     if (c == 's' && !strcmp(ForwardArgString, "self")) {
       *out = tcd->object->cmdName;