Index: openacs-4/packages/acs-tcl/tcl/apm-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-procs.tcl,v
diff -u -r1.114.2.18 -r1.114.2.19
--- openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	20 Oct 2020 12:21:48 -0000	1.114.2.18
+++ openacs-4/packages/acs-tcl/tcl/apm-procs.tcl	28 Oct 2020 15:39:19 -0000	1.114.2.19
@@ -1458,7 +1458,7 @@
     set procedure_name [string tolower "[string trim $package_key]_post_instantiation"]
     # Change all "-" to "_" to mimic our Tcl standards
     regsub -all {\-} $procedure_name "_" procedure_name
-    if { [info commands ::$procedure_name] eq "" } {
+    if { [namespace which ::$procedure_name] eq "" } {
         # No such procedure exists...
         return ""
     }
@@ -1768,7 +1768,7 @@
     @author Peter Marklund
 } {
 
-    if { [info commands ::$proc_name] eq "" } {
+    if { [namespace which ::$proc_name] eq "" } {
         return 0
     }
 
@@ -1784,7 +1784,7 @@
         return [expr {[info args ::$proc_name] eq ""}]
     }
 
-    if {[info commands ::nsf::cmd::info] ne ""} {
+    if {[namespace which ::nsf::cmd::info] ne ""} {
         #
         # We can compare the signature of via nsf procs
         #