Index: openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	23 Jan 2002 02:05:06 -0000	1.3
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	23 Jan 2002 05:25:21 -0000	1.4
@@ -89,25 +89,31 @@
     db_transaction {
 
 	set user_id [db_exec_plsql user_insert {
-	begin
+            begin
 	    :1 := acs.add_user(user_id => :user_id,
-			 email => :email,
-			 url => :url,
-			 first_names => :first_names,
-			 last_name => :last_name,
-			 password => :hashed_password,
-	                 salt => :salt,
-	                 password_question => :password_question,
-	                 password_answer => :password_answer,
-	                 creation_ip => :peeraddr,
-	                 email_verified_p => :email_verified_p,
-	                 member_state => :member_state);
+            email => :email,
+            url => :url,
+            first_names => :first_names,
+            last_name => :last_name,
+            password => :hashed_password,
+            salt => :salt,
+            password_question => :password_question,
+            password_answer => :password_answer,
+            creation_ip => :peeraddr,
+            email_verified_p => :email_verified_p,
+            member_state => :member_state);
 	    end;
-	}] 
-
-        # Call the extension
-        acs_user_extension::user_new -user_id $user_id
-
+	}
+        ] 
+            
+        if {[catch {
+            # Call the extension
+            acs_user_extension::user_new -user_id $user_id
+        } errmsg]} {
+            # At this point, we don't want the user addition to fail
+            # if some extension is screwing things up
+        }
+        
     } on_error {
 	# we got an error.  log it and signal failure.
 	ns_log Error "Problem creating a new user: $errmsg"