Index: xotcl/library/xml/TclExpat-1.1/test-break.tcl
===================================================================
diff -u -rf7894d9be99a8da3a04218abcdb9bd46b6d625c8 -rbb3c756fb47517596b9dbcb4e580aa1212827b41
--- xotcl/library/xml/TclExpat-1.1/test-break.tcl	(.../test-break.tcl)	(revision f7894d9be99a8da3a04218abcdb9bd46b6d625c8)
+++ xotcl/library/xml/TclExpat-1.1/test-break.tcl	(.../test-break.tcl)	(revision bb3c756fb47517596b9dbcb4e580aa1212827b41)
@@ -24,7 +24,7 @@
     }
 }
 proc pi {name args} {
-    if {$name == "break"} {
+    if {$name eq "break"} {
 	return -code break
     }
 }