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 -N -r1.152 -r1.153
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	7 Jul 2002 01:07:10 -0000	1.152
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Jul 2002 18:47:33 -0000	1.153
@@ -933,7 +933,7 @@
         we're at, or the package_id passed in
     } {
         if {[empty_string_p $package_id]} {
-            set package_id [ad_conn package_id]
+            set package_id [site_node_closest_ancestor_package dotlrn]
         }
 
         return [util_memoize "dotlrn_community::get_community_id_not_cached -package_id $package_id"]