Index: openacs-4/packages/acs-admin/lib/become.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/lib/become.tcl,v
diff -u -r1.1.2.1 -r1.1.2.2
--- openacs-4/packages/acs-admin/lib/become.tcl	13 Oct 2004 18:33:57 -0000	1.1.2.1
+++ openacs-4/packages/acs-admin/lib/become.tcl	19 Oct 2004 00:57:38 -0000	1.1.2.2
@@ -2,6 +2,12 @@
 
 } {
 
+} -validate {
+    dotlrn_cannot_become_wide_admin {
+	if { [acs_user::site_wide_admin_p -user_id $user_id] && ![acs_user::site_wide_admin_p] } {
+	    ad_complain "[_ acs-admin.lt_You_dont_have_permiss]"
+	}
+    }
 }
 
 set return_url [ad_pvt_home]