Index: tests/testo.xotcl =================================================================== diff -u -r9f1d59741223795c836a0e8230a891781ecfc09e -rcbb7ce77b477fe9538bb4fe6af6b4d0bb66a9dfb --- tests/testo.xotcl (.../testo.xotcl) (revision 9f1d59741223795c836a0e8230a891781ecfc09e) +++ tests/testo.xotcl (.../testo.xotcl) (revision cbb7ce77b477fe9538bb4fe6af6b4d0bb66a9dfb) @@ -61,8 +61,6 @@ if {$ukn != $args} then { error "wrong order in unknown: $ukns" } - set X [concat [self proc] [list $l] [list $n] [list $l] $args] - puts stderr "l=[llength $X], $X" eval [list [self]] [list [self proc]] [list $l] [list $n] [list $l] $args } @@ -544,11 +542,7 @@ for {set i 0} {$i < $n} {incr i} { lappend guide [list scalar$i {} u] } -puts stderr KILLSELF avar2 killSelf - puts stderr KILLSELF-done -puts stderr guide=$guide -puts stderr trail=$trail if {[lsort $guide] != [lsort $trail]} then { error "FAILED [self] - trace: expected $guide, got $trail" }