Index: openacs-4/packages/acs-developer-support/www/send.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-developer-support/www/send.tcl,v
diff -u -N -r1.4 -r1.5
--- openacs-4/packages/acs-developer-support/www/send.tcl	26 Apr 2005 14:57:57 -0000	1.4
+++ openacs-4/packages/acs-developer-support/www/send.tcl	27 Oct 2014 16:39:34 -0000	1.5
@@ -7,15 +7,15 @@
 }
 ds_require_permission [ad_conn package_id] "admin"
 
-if {![empty_string_p $code]} { 
+if {$code ne ""} { 
     if {[regexp {(.*)\.(adp)} $code match stub ext]} { 
         ns_return 200 text/plain [info body ::template::code::${ext}::$stub]
     } else { 
         ns_returnfile 200 text/plain $code
     }
-} elseif {![empty_string_p $fname]} {
+} elseif {$fname ne ""} {
     ns_return 200 application/x-editlocal [ns_set get [ns_conn form] fname]
-} elseif {![empty_string_p $output]} { 
+} elseif {$output ne ""} { 
     if {[regexp {[0-9]+:error} $output]} { 
         if {[ns_cache get ds_page_bits $output content]} { 
             foreach error $content {