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.158 -r1.159
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Jul 2002 00:13:09 -0000	1.158
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	13 Jul 2002 00:16:37 -0000	1.159
@@ -1355,10 +1355,10 @@
         return [db_string select_admin_portal_id {}]
     }
 
-    ad_proc -public register_community_applet {
+    ad_proc -public register_applet {
         {-community_id:required}
         {-package_id:required}
-        {-applet_key ""}
+        {-applet_key:required}
     } {
         Helper proc for add_applet_to_community and clone, since
         they both need to set up the community <-> applet map
@@ -1382,7 +1382,7 @@
                 AddAppletToCommunity \
                 [list $community_id]]
             
-            register_community_applet \
+            register_applet \
                 -community_id $community_id \
                 -package_id $package_id \
                 -applet_key $applet_key
@@ -1594,7 +1594,7 @@
                     [list $community_id $clone_id]
                 ]
 
-                register_community_applet \
+                register_applet \
                     -community_id $clone_id \
                     -package_id $package_id \
                     -applet_key $applet_key