Index: openacs-4/packages/acs-service-contract/www/binding-display.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/www/binding-display.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/packages/acs-service-contract/www/binding-display.tcl	8 Feb 2005 01:16:49 -0000	1.1
+++ openacs-4/packages/acs-service-contract/www/binding-display.tcl	10 Jan 2007 21:22:05 -0000	1.2
@@ -48,7 +48,7 @@
     order by lower(impl_operation_name)
     
 } {
-    if {[string equal $impl_pl "TCL"]} {
+    if {$impl_pl eq "TCL"} {
         regsub {^::} $impl_alias {} impl_alias
         if {[empty_string_p [info proc ::$impl_alias]]} {
             append impl_alias {</b> - <b style="color: red">NOT FOUND!</b>}