Index: openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl,v
diff -u -r1.64.2.3 -r1.64.2.4
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	16 Dec 2019 10:49:51 -0000	1.64.2.3
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	28 Oct 2020 15:39:19 -0000	1.64.2.4
@@ -555,7 +555,7 @@
  ad_proc -private ds_ad_conn { args } {
      Get the "real" user id.
  } {
-     if {[info commands orig_ad_conn] ne ""} {
+     if {[namespace which orig_ad_conn] ne ""} {
        return [orig_ad_conn {*}$args]
      } else {
        return [ad_conn {*}$args]
@@ -636,7 +636,7 @@
     Replace the ad_get_user procs with our own versions
 } {
     if { $enabled_p } {
-        if { [info commands orig_ad_conn] eq ""} {
+        if { [namespace which orig_ad_conn] eq ""} {
             #ds_comment "Enabling user-switching"
             # let the user stay who he is now (but ignore any error trying to do so)
             catch {
@@ -649,7 +649,7 @@
         }
     } else {
         #ds_comment "Disabling user-switching"
-        if { [info commands orig_ad_conn] ne ""} {
+        if { [namespace which orig_ad_conn] ne ""} {
             rename ad_conn {}
             rename orig_ad_conn ad_conn
         }