Index: openacs-4/packages/dotlrn/www/admin/class-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-new.tcl,v
diff -u -r1.15.6.3 -r1.15.6.4
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	9 May 2005 15:34:09 -0000	1.15.6.3
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	11 May 2005 12:12:25 -0000	1.15.6.4
@@ -78,7 +78,7 @@
 
     # If we do not provide a special subject_key make use of the pretty_name instead
     if {[empty_string_p $subject_key]} {
-	set subject_key $pretty_name
+	set subject_key $department_key.[dotlrn::generate_key -name $pretty_name]
     }
 
     set class_key [dotlrn_class::new \