Index: openacs-4/contrib/packages/mailing-lists/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/mailing-lists/www/index.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/contrib/packages/mailing-lists/www/index.tcl	13 Jan 2005 13:54:34 -0000	1.3
+++ openacs-4/contrib/packages/mailing-lists/www/index.tcl	1 Mar 2005 00:01:19 -0000	1.4
@@ -20,7 +20,7 @@
 	return
     }
 } else {
-    set user_id [ad_maybe_redirect_for_registration]
+    set user_id [auth::require_login]
 }
 
 set package_id [ad_conn package_id]