*** tcltest-2.3.0.tm.orig	Mon Aug 18 05:35:28 2008
--- tcltest-2.3.0.tm	Fri Sep 26 17:20:08 2008
***************
*** 2126,2131 ****
--- 2126,2150 ----
  	if {$scriptCompare} {
  	    puts [outputChannel] "---- Error testing result: $scriptMatch"
  	} else {
+ 	    if {[string range $actualAnswer 0 7] == [string range $result 0 7]} {
+ 		set p 8
+ 		while {[string index $actualAnswer $p] == [string index $result $p]} {
+ 		    incr p
+ 		}
+ 		incr p -3
+ 		set actualAnswer "...[string range $actualAnswer $p end]"
+ 		set result "...[string range $result $p end]"
+ 	    }
+ 	    if {[string range $actualAnswer end-7 end] == [string range $result end-7 end]} {
+ 		set p [expr {[string length $actualAnswer]-8}]
+ 		set q [expr {[string length $result]-8}]
+ 		while {[string index $actualAnswer $p] == [string index $result $q]} {
+ 		    incr p -1
+ 		    incr q -1
+ 		}
+ 		set actualAnswer "[string range $actualAnswer 0 [expr {$p+3}]]..."
+ 		set result "[string range $result 0 [expr {$q+3}]]..."
+ 	    }
  	    puts [outputChannel] "---- Result was:\n$actualAnswer"
  	    puts [outputChannel] "---- Result should have been\
  		    ($match matching):\n$result"
