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.157 -r1.158
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	12 Jul 2002 21:26:48 -0000	1.157
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Jul 2002 00:13:09 -0000	1.158
@@ -1163,15 +1163,15 @@
     } {
         Get the URL for a community type
     } {
-        return [site_node::get_url_from_object_id -object_id [get_community_type_package_id $community_type]]
+        return [lindex [site_node::get_url_from_object_id -object_id [get_community_type_package_id $community_type]] 0]
     }
 
     ad_proc -public get_community_url {
         community_id
     } {
         Get the URL for a community
     } {
-        return [site_node::get_url_from_object_id -object_id [get_package_id $community_id]]
+        return [lindex [site_node::get_url_from_object_id -object_id [get_package_id $community_id]] 0]
     }
 
     ad_proc -public get_community_type_package_id {
@@ -1191,8 +1191,8 @@
     }
 
     ad_proc -public get_applet_package_id {
-        community_id
-        applet_key
+        {-community_id:required}
+        {-applet_key:required}
     } {
         get the package ID for a particular community
     } {