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 -N -r1.15.6.2 -r1.15.6.3
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	6 Apr 2005 19:05:41 -0000	1.15.6.2
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	9 May 2005 15:34:09 -0000	1.15.6.3
@@ -76,6 +76,11 @@
     form get_values add_class \
         department_key pretty_name description referer subject_key
 
+    # 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 class_key [dotlrn_class::new \
         -class_key $subject_key \
         -department_key $department_key \