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.3 -r1.4
--- openacs-4/packages/acs-service-contract/www/binding-display.tcl	24 Apr 2008 08:02:55 -0000	1.3
+++ openacs-4/packages/acs-service-contract/www/binding-display.tcl	8 Dec 2012 18:20:36 -0000	1.4
@@ -50,7 +50,7 @@
 } {
     if {$impl_pl eq "TCL"} {
         regsub {^::} $impl_alias {} impl_alias
-        if {[info proc ::$impl_alias] ne ""} {
+        if {[info commands ::$impl_alias] ne ""} {
             append impl_alias "</b> {[info args ::$impl_alias]}"
         } elseif {[llength $impl_alias]>1 
 		  && [info command ::xotcl::Object] ne ""