Index: xotcl/generic/xotclTrace.c
===================================================================
diff -u -r37995b61f3522a362600738a765a4b38549e0a25 -ra2493e3f5a35557b565be910ee1bf0327cfda563
--- xotcl/generic/xotclTrace.c	(.../xotclTrace.c)	(revision 37995b61f3522a362600738a765a4b38549e0a25)
+++ xotcl/generic/xotclTrace.c	(.../xotclTrace.c)	(revision a2493e3f5a35557b565be910ee1bf0327cfda563)
@@ -1,5 +1,5 @@
 /* -*- Mode: c++ -*-
- * $Id: xotclTrace.c,v 1.2 2004/06/18 07:15:17 neumann Exp $
+ * $Id: xotclTrace.c,v 1.3 2004/07/23 09:40:16 neumann Exp $
  *  
  *  Extended Object Tcl (XOTcl)
  *
@@ -75,7 +75,7 @@
 
     fprintf(stderr, "frameType: %d, ", csc->frameType);
     fprintf(stderr, "next: %d ", csc->callsNext);
-    fprintf(stderr, "cframe %p ", csc->currentFramePtr);
+    fprintf(stderr, "cframe %p (addr=%p) ", csc->currentFramePtr, &(csc->currentFramePtr));
 
     if (csc->currentFramePtr) 
       fprintf(stderr,"l=%d ",Tcl_CallFrame_level(csc->currentFramePtr));