Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -N -r1.126.2.39 -r1.126.2.40
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	20 Oct 2020 07:59:16 -0000	1.126.2.39
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	28 Oct 2020 15:39:19 -0000	1.126.2.40
@@ -2172,7 +2172,7 @@
     return $::acs::sdriver
 }
 
-if {[info commands ns_driver] ne ""} {
+if {[namespace which ns_driver] ne ""} {
 
     ad_proc -private security::configured_driver_info {} {
 
@@ -2649,7 +2649,7 @@
             }
             set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""]
 
-            if {[info commands ::crypto::hmac] ne ""} {
+            if {[namespace which ::crypto::hmac] ne ""} {
                 set token  [::crypto::hmac string $secret $session_id-[clock clicks -microseconds]]
             } else {
                 set token  [ns_sha1 "$secret-$session_id-[clock clicks -microseconds]"]
@@ -2933,7 +2933,7 @@
             set token [set $globalTokenName]
         } else {
             set secret [ns_config "ns/server/[ns_info server]/acs" parametersecret ""]
-            if {[info commands ::crypto::hmac] ne ""} {
+            if {[namespace which ::crypto::hmac] ne ""} {
                 set token [::crypto::hmac string $secret [session_id]]
             } else {
                 set token [ns_sha1 $secret-[session_id]]