Index: generic/tclExecute.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclExecute.c,v
retrieving revision 1.94.2.4
diff -u -r1.94.2.4 tclExecute.c
--- generic/tclExecute.c	5 Aug 2003 16:19:54 -0000	1.94.2.4
+++ generic/tclExecute.c	12 Sep 2003 20:55:47 -0000
@@ -4067,7 +4067,9 @@
     if ((result == TCL_ERROR) && !(iPtr->flags & ERR_ALREADY_LOGGED)) {
 	bytes = GetSrcInfoForPc(pc, codePtr, &length);
 	if (bytes != NULL) {
+	    DECACHE_STACK_INFO();
 	    Tcl_LogCommandInfo(interp, codePtr->source, bytes, length);
+	    CACHE_STACK_INFO();
 	    iPtr->flags |= ERR_ALREADY_LOGGED;
 	}
     }
