Index: xotcl/library/xml/TclExpat-1.1/test-error.tcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/xml/TclExpat-1.1/test-error.tcl	(.../test-error.tcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/xml/TclExpat-1.1/test-error.tcl	(.../test-error.tcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -46,7 +46,7 @@
 
 puts {*** Test error}
 if {[catch {$parser parse $data(error)} err]} {
-    if {[string compare $err "error condition in XML"]} {
+    if {$err ne "error condition in XML" } {
 	puts [list test failed, incorrect error message: $err]
     } else {
 	puts [list test passed]