Index: openacs-4/packages/dotlrn/tcl/community-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/community-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	12 Oct 2001 14:49:45 -0000	1.9
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	12 Oct 2001 18:16:20 -0000	1.10
@@ -249,11 +249,11 @@
 	Adds an applet to the community
     } {
 	db_transaction {
-	    # Insert in the DB
-	    db_dml insert_applet {}
-	    
 	    # Callback
-	    applet_call $applet_key AddApplet [list $community_id]
+	    set package_id [applet_call $applet_key AddApplet [list $community_id]]
+
+	    # Insert in the DB
+	    db_dml insert_applet {}	    
 	}
     }