* generic/tclBasic.c: Use fully qualified variable names for

        * tests/thread.test:    ::errorInfo and ::errorCode so that string
        * tests/trace.test:     reported to variable traces are fully
        qualified in agreement with Tcl 8.4 operations.

2 files changed, 5 insertions, 4 deletions

diff --git a/tests/thread.test b/tests/thread.test
index 1084f5c..09c2edb 100644
--- a/tests/thread.test
+++ b/tests/thread.test
@@ -10,7 +10,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: thread.test,v 1.15 2006/10/09 19:15:45 msofer Exp $
+# RCS: @(#) $Id: thread.test,v 1.16 2007/08/14 15:17:50 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -195,7 +195,8 @@ test thread-4.4 {TclThreadSend preserve code} {testthread} {
     threadReap
     set len [llength [testthread names]]
     set serverthread [testthread create]
-    set x [catch {testthread send $serverthread {set ::errorInfo {}; break}} msg]
+    set ::errorInfo {}
+    set x [catch {testthread send $serverthread {break}} msg]
     threadReap
     list $len $x $msg $::errorInfo
 } {1 3 {} {}}
diff --git a/tests/trace.test b/tests/trace.test
index 2646502..e172c03 100644
--- a/tests/trace.test
+++ b/tests/trace.test
@@ -11,7 +11,7 @@
 # See the file "license.terms" for information on usage and redistribution
 # of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 #
-# RCS: @(#) $Id: trace.test,v 1.58 2007/08/13 23:07:37 dgp Exp $
+# RCS: @(#) $Id: trace.test,v 1.59 2007/08/14 15:17:51 dgp Exp $
 
 if {[lsearch [namespace children] ::tcltest] == -1} {
     package require tcltest
@@ -256,7 +256,7 @@ test trace-2.7 {trace variable writes on errorInfo} -body {
 } -cleanup {
    # always remove trace on errorInfo otherwise further tests will fail
    unset ::errorInfo
-} -result {errorInfo {} write}
+} -result {::errorInfo {} write}