Index: openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl,v
diff -u -r1.27 -r1.28
--- openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	17 Sep 2003 07:07:52 -0000	1.27
+++ openacs-4/packages/acs-authentication/tcl/test/acs-authentication-procs.tcl	19 Sep 2003 12:59:11 -0000	1.28
@@ -718,7 +718,9 @@
                                   -user_id $user_id \
                                   -old_password $password \
                                   -new_password $new_password]
-            aa_equals "Password change OK" $result(password_status) "ok"
+            if { ![aa_equals "Password change OK" $result(password_status) "ok"] } {
+                aa_log "Message was: $result(password_message)"
+            }
             
             # Check that we get email
             aa_equals "Email sent to user" $ns_sendmail_to $email