Index: openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl,v
diff -u -r1.63.2.5 -r1.63.2.6
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	28 Oct 2004 17:35:35 -0000	1.63.2.5
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	3 Jan 2005 05:28:36 -0000	1.63.2.6
@@ -76,10 +76,11 @@
 ad_proc -public auth::self_registration {} {
    #Check AllowSelfRegister parameter
 
-    if { ![parameter::get_from_package_key \
-                      -package_key acs-authentication \
-	              -parameter AllowSelfRegister] } {
-          ad_maybe_redirect_for_registration
+    if { [string is false [parameter::get_from_package_key \
+			       -package_key acs-authentication \
+			       -parameter AllowSelfRegister]] } {
+	util_user_message -message "Self registration is not allowed"
+	ad_maybe_redirect_for_registration
     }
 }