failing Itcl 3.4 tests

==== 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