Index: generic/itclMethod.c
==================================================================
--- generic/itclMethod.c
+++ generic/itclMethod.c
@@ -2529,11 +2529,10 @@
     ItclCallContext *callContextPtr;
     ItclMemberFunc *imPtr;
     ItclObject *contextIoPtr;
     ItclClass *currIclsPtr;
     char num[20];
-    int loopCnt;
     Itcl_Stack *stackPtr;
 
     /* Fetch the current call frame.  That determines context. */
     Tcl_CallFrame *framePtr = Itcl_GetUplevelCallFrame(interp, 0);
 
@@ -2553,11 +2552,10 @@
     if (callContextPtr == NULL) {
 	return;
     }
 
     currIclsPtr = NULL;
-    loopCnt = 1;
     objPtr = NULL;
     {
 	imPtr = callContextPtr->imPtr;
         contextIoPtr = callContextPtr->ioPtr;
         objPtr = Tcl_NewStringObj("\n    ", -1);