Index: openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl	15 May 2007 20:14:25 -0000	1.7
+++ openacs-4/packages/dotlrn/www/admin/dotlrn-admins.tcl	29 Sep 2013 13:49:46 -0000	1.8
@@ -31,7 +31,7 @@
 set dotlrn_admins_group [db_string group_id_from_name "
             select group_id from groups where group_name='dotlrn-admin'" -default ""]
 
-set admin_id [ad_verify_and_get_user_id]
+set admin_id [ad_conn user_id]
 
 set elements [list user \
 		  [list label "[_ dotlrn.User]"\