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.87.4.3 -r1.87.4.4
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	30 Sep 2013 18:26:48 -0000	1.87.4.3
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	2 Oct 2013 08:01:34 -0000	1.87.4.4
@@ -767,10 +767,10 @@
 
     array set element_info [auth::get_registration_elements]
 
-    if { [lsearch $element_info(required) password] != -1 } {
+    if {"password" in $element_info(required)} {
         lappend element_info(required) password_confirm
     }
-    if { [lsearch $element_info(optional) password] != -1 } {
+    if {"password" in $element_info(optional)} {
         lappend element_info(optional) password_confirm
     }