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.2 -r1.3
--- openacs-4/packages/acs-authentication/tcl/local-procs.tcl	22 Aug 2003 15:10:54 -0000	1.2
+++ openacs-4/packages/acs-authentication/tcl/local-procs.tcl	25 Aug 2003 13:44:59 -0000	1.3
@@ -102,7 +102,7 @@
     password
     {parameters {}}
 } {
-    Implements the GetParameters operation of the auth_authentication 
+    Implements the Authenticate operation of the auth_authentication 
     service contract for the local account implementation.
 } {
     array set auth_info [list]
@@ -123,6 +123,7 @@
         set auth_info(auth_status) "ok"
     } else {
         set auth_info(auth_status) "bad_password"
+        set auth_info(auth_message) "Invalid username or password"
         return [array get auth_info]
     }