Index: openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl,v
diff -u -r1.26.2.2 -r1.26.2.3
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	13 Dec 2005 09:14:27 -0000	1.26.2.2
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	13 Dec 2005 09:18:02 -0000	1.26.2.3
@@ -135,6 +135,7 @@
 
 set context_bar [list \
                      [list classes [parameter::get -localize -parameter classes_pretty_plural]] \
-                     [list "class?class_key=$class_key" $class_name] \
+                     [list "class?class_key=$class_key" $pretty_name] \
                      [_ dotlrn.new_class_instance]]
 
+set class_name $pretty_name
\ No newline at end of file