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.9 -r1.10
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	10 Jan 2002 21:19:32 -0000	1.9
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	15 Jan 2002 20:47:01 -0000	1.10
@@ -24,7 +24,7 @@
     -label "Join Policy" -datatype text -widget select -options {{Open open} {"Needs Approval" "needs approval"} {Closed closed}}
 
 element create add_class_instance class_key \
-    -label "Class Key" -value $class_key -datatype text -widget hidden
+    -label "[ad_parameter classes_pretty_name] Key" -value $class_key -datatype text -widget hidden
 
 element create add_class_instance referer \
     -label "Referer" -value $referer -datatype text -widget hidden