Index: generic/nsf.c
===================================================================
diff -u -r27e5aa8b2a27ce72f107fd71f3c1d9b139f6c02d -rc9fc52e5a7ef55ae2b034c0ab2a5269188599fa7
--- generic/nsf.c	(.../nsf.c)	(revision 27e5aa8b2a27ce72f107fd71f3c1d9b139f6c02d)
+++ generic/nsf.c	(.../nsf.c)	(revision c9fc52e5a7ef55ae2b034c0ab2a5269188599fa7)
@@ -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;