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.53 -r1.54
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	9 Oct 2003 10:07:50 -0000	1.53
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	10 Oct 2003 16:19:18 -0000	1.54
@@ -405,6 +405,16 @@
     #
     #####
 
+    if { $verify_password_confirm_p } {
+        if { ![string equal $password $password_confirm] } {
+            return [list \
+                        creation_status datta_error \
+                        creation_message "Passwords don't match" \
+                        element_messages [list \
+                                              password_confirm "Passwords don't match"]]
+        }
+    }
+
     foreach elm [get_all_registration_elements] {
         if { [info exists $elm] } {
             set user_info($elm) [set $elm]