Index: openacs-4/packages/acs-authentication/tcl/local-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/local-procs.tcl,v
diff -u -r1.38 -r1.39
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	27 Oct 2014 16:39:01 -0000	1.38
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	16 Jun 2015 07:13:27 -0000	1.39
@@ -501,7 +501,7 @@
 
     # LARS TODO: Move this out of the local driver and into the auth framework
     # Send password confirmation email to user
-    if { [set email_reg_confirm_p [parameter::get -parameter EmailRegistrationConfirmationToUserP -package_id [ad_conn subsite_id] -default 0]] != -1 } {
+    if { [set email_reg_confirm_p [parameter::get -parameter EmailRegistrationConfirmationToUserP -package_id [ad_conn subsite_id] -default 1]] != 0 } {
 	if { $generated_pwd_p || \
 		 [parameter::get -parameter RegistrationProvidesRandomPasswordP -package_id [ad_conn subsite_id] -default 0] || \
 		 $email_reg_confirm_p } {