Index: generic/nsf.c
===================================================================
diff -u -r1c21a6f9ab7fe20490ba256cb8cf3759b8498838 -r3a9753e7ced44933ede02881fc6bb47cf36b559b
--- generic/nsf.c	(.../nsf.c)	(revision 1c21a6f9ab7fe20490ba256cb8cf3759b8498838)
+++ generic/nsf.c	(.../nsf.c)	(revision 3a9753e7ced44933ede02881fc6bb47cf36b559b)
@@ -949,6 +949,7 @@
 
   return result;
 }
+
 int
 NsfDeleteObject(Tcl_Interp *interp, Nsf_Object *object) {
   return DispatchDestroyMethod(interp, (NsfObject *)object, 0);
@@ -1074,12 +1075,15 @@
   return 0;
 }
 
+#if 0
 /*
  *----------------------------------------------------------------------
  * NSCutNsfClasses --
  *
  *    Removes preceding ::nsf::classes from a string
  *
+ *    Currently not used; either make it public or remove it.
+ *
  * Results:
  *    NsfObject and *fromClasses
  *
@@ -1093,6 +1097,7 @@
   assert(strncmp((string), "::nsf::classes", 14) == 0);
   return string+14;
 }
+#endif
 
 /*
  *----------------------------------------------------------------------
@@ -21445,12 +21450,12 @@
     break;
 
   case CurrentoptionArgsIdx: {
-    int nobjc;
-    Tcl_Obj **nobjv;
-
     cscPtr = CallStackGetTopFrame(interp, &framePtr);
 
     if (cscPtr) {
+      int nobjc;
+      Tcl_Obj **nobjv;
+
       if (cscPtr->objv) {
 	nobjc = cscPtr->objc;
 	nobjv = (Tcl_Obj **)cscPtr->objv;