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.4 -r1.4.2.1
--- openacs-4/packages/acs-service-contract/www/binding-display.tcl	8 Dec 2012 18:20:36 -0000	1.4
+++ openacs-4/packages/acs-service-contract/www/binding-display.tcl	2 Oct 2013 22:41:59 -0000	1.4.2.1
@@ -53,7 +53,7 @@
         if {[info commands ::$impl_alias] ne ""} {
             append impl_alias "</b> {[info args ::$impl_alias]}"
         } elseif {[llength $impl_alias]>1 
-		  && [info command ::xotcl::Object] ne "" 
+		  && [info commands ::xotcl::Object] ne "" 
 		  && [::xotcl::Object isobject [lindex $impl_alias 0]]
 		  && [[lindex $impl_alias 0] info methods [lindex $impl_alias 1]] ne ""} {
 	    # - it looks like a method,