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.32 -r1.33
--- openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	29 Sep 2013 13:49:45 -0000	1.32
+++ openacs-4/packages/dotlrn/www/admin/class-instance-new.tcl	1 Nov 2013 21:08:33 -0000	1.33
@@ -113,7 +113,7 @@
 
     db_dml update_community_info {}
 
-    if {[empty_string_p $referer]} {
+    if {$referer eq ""} {
         set referer "[dotlrn::get_admin_url]/class?[export_vars -url {class_key}]"
     }