Index: generic/tclVar.c
===================================================================
RCS file: /cvsroot/tcl/tcl/generic/tclVar.c,v
retrieving revision 1.66
diff -u -r1.66 tclVar.c
--- generic/tclVar.c	4 Sep 2002 15:18:53 -0000	1.66
+++ generic/tclVar.c	5 Sep 2002 18:21:34 -0000
@@ -4506,9 +4506,12 @@
 
     flags = TCL_TRACE_UNSETS;
     if (tablePtr == &iPtr->globalNsPtr->varTable) {
-	flags |= (TCL_INTERP_DESTROYED | TCL_GLOBAL_ONLY);
+	flags |= TCL_GLOBAL_ONLY;
     } else if (tablePtr == &currNsPtr->varTable) {
 	flags |= TCL_NAMESPACE_ONLY;
+    }
+    if (Tcl_InterpDeleted(interp)) {
+	flags |= TCL_INTERP_DESTROYED;
     }
 
     for (hPtr = Tcl_FirstHashEntry(tablePtr, &search);  hPtr != NULL;
