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.50 -r1.51
--- openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	7 Oct 2003 13:23:24 -0000	1.50
+++ openacs-4/packages/acs-authentication/tcl/authentication-procs.tcl	7 Oct 2003 14:11:02 -0000	1.51
@@ -422,7 +422,7 @@
 
         if { ![string equal $creation_info(creation_status) "ok"] } {
             # Local account creation error
-            ad_abort_transaction
+            db_abort_transaction
             return
         }