Index: openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl,v
diff -u -r1.33.2.3 -r1.33.2.4
--- openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	1 Sep 2020 17:37:10 -0000	1.33.2.3
+++ openacs-4/packages/acs-service-contract/tcl/acs-service-contract-procs.tcl	28 Oct 2020 15:39:19 -0000	1.33.2.4
@@ -57,14 +57,14 @@
 
     set proc_name [acs_sc_generate_name $contract $impl $operation]
 
-    if { [info commands $proc_name] ne "" } {
+    if { [namespace which $proc_name] ne "" } {
         return [ad_apply $proc_name $call_args]
     }
 
     if { $error_p } {
         error "Operation $operation is not implemented in '$impl' implementation of contract '$contract'"
     } else {
-        ns_log warning "ACS-SC: Function Not Found: $proc_name [info commands $proc_name]"
+        ns_log warning "ACS-SC: Function Not Found: $proc_name [namespace which $proc_name]"
     }
     return
 }
@@ -253,7 +253,7 @@
             # Check, if the wrapper exists already
             #
             set proc_name [acs_sc_generate_name $impl_contract_name $impl_name $impl_operation_name]
-            if {[info commands ::$proc_name] eq ""} {
+            if {[namespace which ::$proc_name] eq ""} {
                 #
                 # Create it new.
                 #