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.154 -r1.155
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Jul 2002 21:50:11 -0000	1.154
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	9 Jul 2002 22:16:38 -0000	1.155
@@ -932,7 +932,7 @@
         we're at, or the package_id passed in
     } {
         if {[empty_string_p $package_id]} {
-            set package_id [site_node_closest_ancestor_package dotlrn]
+            set package_id [site_node_closest_ancestor_package -default [ad_conn package_id] dotlrn]
         }
 
         return [util_memoize "dotlrn_community::get_community_id_not_cached -package_id $package_id"]