Index: xotcl/library/lib/trace.xotcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -r47c4c8f68826b6e7b4b9fa38e65bd77f281d7dbf
--- xotcl/library/lib/trace.xotcl	(.../trace.xotcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/lib/trace.xotcl	(.../trace.xotcl)	(revision 47c4c8f68826b6e7b4b9fa38e65bd77f281d7dbf)
@@ -1,4 +1,4 @@
-# -*- Tcl -*- $Id: trace.xotcl,v 1.1 2004/05/23 22:50:39 neumann Exp $
+# -*- Tcl -*- $Id: trace.xotcl,v 1.2 2004/07/27 09:35:18 neumann Exp $
 package provide xotcl::trace 0.91
 @ @File {description {
   Various tracing tools for the XOTcl language.
@@ -126,7 +126,8 @@
     instproc {set dargs [list [lindex $args 0] [lindex $args 1] ...] }
     default  {set dargs $args }
   }
-  Trace::puts "CALL $context>  [self]->$method $dargs"
+  my showStack
+  Trace::puts "CALL $context>  [self]->$method $dargs (next=[self next])"
   set result [next]
   Trace::puts "EXIT $context>  [self]->$method ($result)"
   return $result