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.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	24 Sep 2001 23:45:12 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/community-core-procs.tcl	23 Jan 2002 02:05:06 -0000	1.3
@@ -88,7 +88,7 @@
     
     db_transaction {
 
-	db_exec_plsql user_insert {
+	set user_id [db_exec_plsql user_insert {
 	begin
 	    :1 := acs.add_user(user_id => :user_id,
 			 email => :email,
@@ -103,8 +103,11 @@
 	                 email_verified_p => :email_verified_p,
 	                 member_state => :member_state);
 	    end;
-	} 
+	}] 
 
+        # Call the extension
+        acs_user_extension::user_new -user_id $user_id
+
     } on_error {
 	# we got an error.  log it and signal failure.
 	ns_log Error "Problem creating a new user: $errmsg"