*** tcltest.test.old	Mon May 21 17:52:13 2001
--- tcltest.test	Tue Aug 21 18:18:24 2001
***************
*** 733,740 ****
  test tcltest-12.2 {-loadfile load.tcl} {unixOrPc} {
      catch {exec $::tcltest::tcltest load.tcl -debug 2 -loadfile load.tcl} msg
      list \
! 	    [regexp {tcltest} [join $msg [split $msg \n]]] \
! 	    [regexp {loadScript} [join $msg [split $msg \n]]]
  } {1 1}
  
  test tcltest-12.3 {tcltest::loadScript} {
--- 733,740 ----
  test tcltest-12.2 {-loadfile load.tcl} {unixOrPc} {
      catch {exec $::tcltest::tcltest load.tcl -debug 2 -loadfile load.tcl} msg
      list \
!         [regexp {tcltest} [join [list $msg] [split $msg \n]]] \
!         [regexp {loadScript} [join [list $msg] [split $msg \n]]]
  } {1 1}
  
  test tcltest-12.3 {tcltest::loadScript} {
