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.40 -r1.41
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Dec 2001 00:45:15 -0000	1.40
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	11 Dec 2001 03:47:53 -0000	1.41
@@ -139,6 +139,7 @@
         ns_set put $extra_vars pretty_name $pretty_name
         ns_set put $extra_vars pretty_plural $pretty_name
         ns_set put $extra_vars description $description
+        ns_set put $extra_vars context_id [dotlrn::get_package_id]
 
         db_transaction {
             # Insert the community