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.142 -r1.143
--- openacs-4/packages/dotlrn/tcl/community-procs.tcl	3 Jun 2002 21:16:28 -0000	1.142
+++ openacs-4/packages/dotlrn/tcl/community-procs.tcl	5 Jun 2002 18:16:55 -0000	1.143
@@ -1430,6 +1430,7 @@
     ad_proc -public clone {
         {-community_id:required}
         {-key:required}
+        {-pretty_name ""}
         {-description ""}
         {-parent_community_id ""}
         {-term_id ""}
@@ -1498,7 +1499,10 @@
                 }
             }
 
-            set pretty_name $key
+            if {[empty_string_p $pretty_name]} {
+                set pretty_name $key
+            }
+
             ns_set put $extra_vars community_type $community_type
             ns_set put $extra_vars community_key $key
             # just the key for now