$OpenBSD: patch-support_devel_all_tcl,v 1.2 2009/03/19 16:54:33 sthen Exp $ --- support/devel/all.tcl.orig Fri Dec 12 23:10:20 2008 +++ support/devel/all.tcl Tue Jan 6 02:28:48 2009 @@ -98,6 +98,7 @@ if {[catch {::tcltest::normalizePath ::tcltest::testsD set root $::tcltest::testsDirectory proc Note {k v} { +return puts stdout [list @@ $k $v] flush stdout return @@ -196,7 +197,7 @@ foreach module $modules { set ::tcltest::testsDirectory [pSet ::tcltest::testsDirectory] # configure not present in tcltest 1.x - if {[catch {::tcltest::configure -verbose bstep}]} { + if {[catch {::tcltest::configure -verbose {be}}]} { set ::tcltest::verbose psb } }