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
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.26 -r1.27
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	11 Dec 2001 03:19:48 -0000	1.26
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	11 Dec 2001 03:47:53 -0000	1.27
@@ -205,7 +205,7 @@
     } {
 	Return the user default theme
     } {
-	return [db_string select_user_theme {}]
+	return [db_string select_user_theme {} -default ""]
     }
 
     ad_proc -public set_user_theme {