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.113 -r1.114
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	8 May 2002 13:28:37 -0000	1.113
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	12 May 2002 18:18:55 -0000	1.114
@@ -895,9 +895,7 @@
         under a dotlrn community, such as workflow panels, that cannot
         be passed their community_id.
     } {
-        set parent_pkg_id [site_nodes::get_parent_object_id \
-                -instance_id $package_id
-        ]
+        set parent_pkg_id [site_nodes::get_parent_object_id -package_id $package_id]
 
         return [get_community_id -package_id $parent_pkg_id]
     }
@@ -907,8 +905,7 @@
     } {
         Returns the parent community's id or null
     } {
-        return [util_memoize \
-                "dotlrn_community::get_parent_id_not_cached -community_id $community_id"]
+        return [util_memoize "dotlrn_community::get_parent_id_not_cached -community_id $community_id"]
     }
 
     ad_proc -private get_parent_id_not_cached {