itcl 3 failure

mig@ari:~/DEVEL/itcl/itcl-3-branch$ make test
TCL_LIBRARY=`echo /home/mig/DEVEL/tcl-core/trunk/library` ITCL_LIBRARY=`echo ./library` LD_LIBRARY_PATH=".:/home/mig/DEVEL/tcl-core/trunk/unix:" PATH=".:/home/mig/DEVEL/tcl-core/trunk/unix:/home/mig/Private/bin:/opt/ActiveTcl-8.5/bin:/usr/local/sbin:/usr/local/bin:/usr/sbin:/usr/bin:/sbin:/bin:/usr/games" TCLLIBPATH="." /home/mig/DEVEL/tcl-core/trunk/unix/tclsh `echo ./tests/all.tcl` -load "package require Itcl 3.4" 
Tests running in interp:  /home/mig/DEVEL/tcl-core/trunk/unix/tclsh
Tests located in:  /home/mig/DEVEL/itcl/itcl-3-branch/tests
Tests running in:  /home/mig/DEVEL/itcl/itcl-3-branch
Temporary files stored in /home/mig/DEVEL/itcl/itcl-3-branch
Test files run in separate interpreters
Running tests that match:  *
Skipping test files that match:  l.*.test
Only running test files that match:  *.test
Tests began at Wed Jul 06 12:29:57 ART 2011
basic.test
body.test
chain.test


==== chain-2.1 create a test object in a base class FAILED
==== Contents of test case:

    set test_chain_status ""
    set testobj [test_chain_c #auto 4 5 6]
    set test_chain_status

---- Test generated error; Return code was: 1
---- Return code should have been one of: 0 2
---- errorInfo: variable "test_chain_status" already exists
    while executing
"global ::test_chain_status"
    while constructing object "::test_chain_c0" in ::test_chain_b::constructor (body line 2)
    invoked from within
"chain 4 5 6"
    ("eval" body line 1)
    invoked from within
"eval chain $args"
    while constructing object "::test_chain_c0" in ::test_chain_a::constructor (body line 2)
    invoked from within
"chain 4 5 6"
    ("eval" body line 1)
    invoked from within
"eval chain $args"
    while constructing object "::test_chain_c0" in ::test_chain_c::constructor (body line 2)
    invoked from within
"test_chain_c #auto 4 5 6"
    ("uplevel" body line 3)
    invoked from within
"uplevel 1 $script"
---- errorCode: TCL UPVAR EXISTS
==== chain-2.1 FAILED


==== chain-2.2 invoke a chained method FAILED
==== Contents of test case:

    set test_chain_status ""
    $testobj show "hello there"
    set test_chain_status

---- Result was:
{b::show hello there} {a::show hello there} {d::show hello there}
---- Result should have been (exact matching):
{b::show hello there} {a::show hello there}
==== chain-2.2 FAILED

delete.test
ensemble.test
import.test
info.test
inherit.test
interp.test
local.test
methods.test
mkindex.test
namespace.test
protection.test
scope.test

Tests ended at Wed Jul 06 12:29:58 ART 2011
all.tcl:	Total	400	Passed	398	Skipped	0	Failed	2
Sourced 15 Test Files.
Files with failing tests: chain.test
mig@ari:~/DEVEL/itcl/itcl-3-branch$