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.66 -r1.67
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	10 Jun 2004 17:06:34 -0000	1.66
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	12 Jul 2004 14:49:34 -0000	1.67
@@ -1576,7 +1576,7 @@
                 -error \
                 -impl_id $impl_id \
                 -operation Authenticate \
-                -call_args [list $username $password $parameters]]
+                -call_args [list $username $password $parameters $authority_id]]
 }
 
 #####