Index: openacs-4/packages/acs-developer-support/www/set-user.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/set-user.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-developer-support/www/set-user.tcl	20 Apr 2001 20:51:09 -0000	1.1
+++ openacs-4/packages/acs-developer-support/www/set-user.tcl	27 Oct 2014 16:39:34 -0000	1.2
@@ -1,12 +1,12 @@
 ad_page_contract {
     A hack that will allow us to simulate being a different user
 } {
-    user_id:integer
+    user_id:naturalnum,notnull
     return_url
 }
 
 ##NOTE THIS DOESN'T REQUIRE ADMIN SO THAT WE CAN DO USER SWITCHING
-ad_require_permission [ad_conn package_id] "read"
+permission::require_permission -object_id [ad_conn package_id] -privilege "read"
 
 ad_set_client_property developer-support user_id $user_id