Index: openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl,v
diff -u -N -r1.3 -r1.4
--- openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl	15 May 2007 20:14:30 -0000	1.3
+++ openacs-4/packages/dotlrn-homework/www/admin/upload-size-limit.tcl	27 Oct 2014 16:41:21 -0000	1.4
@@ -12,7 +12,7 @@
 } 
 
 set max_size [ns_config "ns/server/[ns_info server]/module/nssock" maxinput]
-if { [string equal $max_size ""] } {
+if {$max_size eq ""} {
     set max_size 0
 }
 
@@ -32,7 +32,7 @@
 
 } -on_submit {
     parameter::set_value  -parameter "MaximumFileSize" -value $new_size
-    if {![empty_string_p $return_url]} {
+    if {$return_url ne ""} {
 	ad_returnredirect $return_url
     }
 }