Index: generic/nsfShadow.c
===================================================================
diff -u -r7495af656ca04a32826ecb0b6e207f886eaaa7f8 -r77b8c1919a102d9309079071f070f2f5b48d50a5
--- generic/nsfShadow.c	(.../nsfShadow.c)	(revision 7495af656ca04a32826ecb0b6e207f886eaaa7f8)
+++ generic/nsfShadow.c	(.../nsfShadow.c)	(revision 77b8c1919a102d9309079071f070f2f5b48d50a5)
@@ -266,7 +266,6 @@
 
   if (result == TCL_OK && objc == 2) {
     int level, topLevel, frameFlags;
-    CONST char *frameType;
     CmdFrame *framePtr = Tcl_Interp_cmdFramePtr(interp);
     CallFrame *varFramePtr = Tcl_Interp_varFramePtr(interp);
     Tcl_Obj *resultObj = Tcl_GetObjResult(interp);
@@ -293,6 +292,7 @@
     if (frameFlags & (FRAME_IS_NSF_METHOD|FRAME_IS_NSF_CMETHOD)) {
       NsfCallStackContent *cscPtr = 
         ((NsfCallStackContent *)Tcl_CallFrame_clientData(varFramePtr));
+      CONST char *frameType;
       Tcl_Obj *listObj, **ov;
       int oc, i;