Index: openacs-4/packages/dotlrn/tcl/class-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/class-procs.tcl,v
diff -u -r1.34 -r1.35
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	12 May 2002 21:55:17 -0000	1.34
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	16 May 2002 13:29:14 -0000	1.35
@@ -150,7 +150,6 @@
     } {
         set term [dotlrn_term::get_term_name -term_id $term_id]
         set year [dotlrn_term::get_term_year -term_id $term_id]
-        set community_key [dotlrn::generate_key -name "${class_key}-${term}-${year}"]
 
         set extra_vars [ns_set create]
         ns_set put $extra_vars term_id $term_id
@@ -160,6 +159,7 @@
         if {[empty_string_p $pretty_name]} {
             set pretty_name  "[dotlrn_community::get_community_type_name $class_key]; $term $year"
         }
+        set community_key [dotlrn::generate_key -name "${pretty_name}"]
 
         db_transaction {
             # Create the community