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 -N -r1.52.2.2 -r1.52.2.3
--- openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	7 Sep 2013 08:37:58 -0000	1.52.2.2
+++ openacs-4/packages/acs-developer-support/tcl/acs-developer-support-procs.tcl	7 Sep 2013 14:36:49 -0000	1.52.2.3
@@ -574,30 +574,30 @@
 		ad_set_client_property developer-support user_id [ad_conn user_id]
 	    }
             rename ad_conn orig_ad_conn
-	    rename ad_get_user_id orig_ad_get_user_id
-	    rename ad_verify_and_get_user_id orig_ad_verify_and_get_user_id
+	    #rename ad_get_user_id orig_ad_get_user_id
+	    #rename ad_verify_and_get_user_id orig_ad_verify_and_get_user_id
 	    
             proc ad_conn { args } {
 	        ds_conn {*}$args
             }
 	    proc ad_get_user_id {} {
                 ds_get_user_id
 	    }
-	    proc ad_verify_and_get_user_id {} {
-                ds_get_user_id
-	    }
+	    #proc ad_verify_and_get_user_id {} {
+            #    ds_get_user_id
+	    #}
 	}
     } else {
         #ds_comment "Disabling user-switching"
 	if { [info commands orig_ad_get_user_id] ne ""} {
             rename ad_conn {}
             rename orig_ad_conn ad_conn
 
-	    rename ad_get_user_id {}
-	    rename orig_ad_get_user_id ad_get_user_id
+	    #rename ad_get_user_id {}
+	    #rename orig_ad_get_user_id ad_get_user_id
 
-	    rename ad_verify_and_get_user_id {}
-	    rename orig_ad_verify_and_get_user_id ad_verify_and_get_user_id
+	    #rename ad_verify_and_get_user_id {}
+	    #rename orig_ad_verify_and_get_user_id ad_verify_and_get_user_id
 	}
     }
 }