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.33 -r1.34
--- openacs-4/packages/dotlrn/tcl/class-procs.tcl	7 May 2002 22:06:11 -0000	1.33
+++ openacs-4/packages/dotlrn/tcl/class-procs.tcl	12 May 2002 21:55:17 -0000	1.34
@@ -150,7 +150,7 @@
     } {
         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 "${class_key}-${term}-${year}"
+        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