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.23 -r1.24
--- openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	12 Mar 2004 18:48:45 -0000	1.23
+++ openacs-4/packages/acs-authentication/tcl/authority-procs.tcl	25 Mar 2004 21:51:24 -0000	1.24
@@ -72,7 +72,7 @@
 
     db_transaction {
 
-        if { [empty_string_p authority_id] } {
+        if { [empty_string_p $authority_id] } {
             set authority_id [db_nextval "auth_authority_id_seq"]
         }