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.19 -r1.20
--- openacs-4/packages/dotlrn/www/admin/class-new.tcl	7 Oct 2007 22:36:56 -0000	1.19
+++ openacs-4/packages/dotlrn/www/admin/class-new.tcl	1 Nov 2013 21:08:33 -0000	1.20
@@ -77,7 +77,7 @@
         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]} {
+    if {$subject_key eq ""} {
 	set subject_key $department_key.[dotlrn::generate_key -name $pretty_name]
     }