Index: generic/xotclStack85.c
===================================================================
diff -u -r9f8816ff85210d4b5a1dbc235f8518a0d3312909 -r63626dfe7b97728f4103a7873214038e7b15d74e
--- generic/xotclStack85.c	(.../xotclStack85.c)	(revision 9f8816ff85210d4b5a1dbc235f8518a0d3312909)
+++ generic/xotclStack85.c	(.../xotclStack85.c)	(revision 63626dfe7b97728f4103a7873214038e7b15d74e)
@@ -406,10 +406,10 @@
   if (cl) {
     Namespace *nsPtr = ((Command *)cmd)->nsPtr;
     cl->object.activationCount ++;
-    /*fprintf(stderr, "... %s cmd %s cmd ns %p (%s) obj ns %p parent %p\n", 
+    /*fprintf(stderr, "... %s cmd %s cmd ns %p (%s, refCount %d ++) obj ns %p parent %p\n", 
             className(cl), 
             Tcl_GetCommandName(object->teardown, cmd),
-            ((Command *)cmd)->nsPtr, ((Command *)cmd)->nsPtr->fullName,
+            nsPtr, nsPtr->fullName, nsPtr->refCount,
             cl->object.nsPtr,cl->object.nsPtr ? ((Namespace*)cl->object.nsPtr)->parentPtr : NULL);*/
     
     /* incremement the namespace ptr in case tcl tries to delete this namespace 
@@ -440,7 +440,7 @@
  *----------------------------------------------------------------------
  * CscFinish --
  *
- *    Counterpart of CscInit(). Decreament activation counts
+ *    Counterpart of CscInit(). Decrement activation counts
  *    and delete objects/classes if necessary.
  *
  * Results:
@@ -510,6 +510,7 @@
       if ((nsPtr->refCount == 0) && (nsPtr->flags & NS_DEAD)) {
         /* the namspace refcound has reached 0, we have to free
            it. unfortunately, NamespaceFree() is not exported */
+        /* TODO: remove me finally */
         fprintf(stderr, "HAVE TO FREE %p\n",nsPtr);
         /*NamespaceFree(nsPtr);*/
         ckfree(nsPtr->fullName);
@@ -518,8 +519,8 @@
       }
     }
 
-    /*fprintf(stderr, "CscFinish done\n");*/
   }
+  /*fprintf(stderr, "CscFinish done\n");*/
 
 }