Index: openacs-4/packages/acs-authentication/tcl/authority-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-authentication/tcl/authority-procs.tcl,v
diff -u -r1.22.2.1 -r1.22.2.2
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	25 Mar 2004 18:36:05 -0000	1.22.2.1
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	1 Jul 2004 13:01:04 -0000	1.22.2.2
@@ -73,7 +73,7 @@
     db_transaction {
 
         if { [empty_string_p $authority_id] } {
-            set authority_id [db_nextval "auth_authority_id_seq"]
+            set authority_id [db_nextval "acs_object_id_seq"]
         }
 
         set names [array names row]