Index: openacs-4/packages/dotlrn/www/admin/admin-remove.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/admin-remove.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/dotlrn/www/admin/admin-remove.tcl	8 Aug 2006 21:26:28 -0000	1.5
+++ openacs-4/packages/dotlrn/www/admin/admin-remove.tcl	1 Nov 2013 21:08:33 -0000	1.6
@@ -13,7 +13,7 @@
 #  FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
 #  details.
 #
-ad_maybe_redirect_for_registration
+auth::require_login
 ad_page_contract {
     Remove dotLRN Administrators 
 
@@ -29,7 +29,7 @@
 
 set group_id [db_string group_id_from_name "
             select group_id from groups where group_name='dotlrn-admin'" -default ""]
-        if {![empty_string_p $group_id] } {
+        if {$group_id ne "" } {
            group::remove_member -group_id $group_id -user_id $user_id
         }