Index: openacs-4/packages/attachments/www/attach.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/attach.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/packages/attachments/www/attach.tcl	29 May 2009 18:13:24 -0000	1.11
+++ openacs-4/packages/attachments/www/attach.tcl	27 Oct 2014 16:41:05 -0000	1.12
@@ -25,17 +25,17 @@
 permission::require_permission -object_id $to_object_id -privilege write
 
 # Give the object a nasty name if it doesn't have a pretty name
-if {[empty_string_p $pretty_object_name]} {
+if {$pretty_object_name eq ""} {
     set pretty_object_name "[_ attachments.Object] #$to_object_id"
 }
 
 # Load up file storage information
-if {[empty_string_p $folder_id]} {
+if {$folder_id eq ""} {
     set folder_id [attachments::get_root_folder]
 } 
 
 # sanity check
-if {[empty_string_p $folder_id]} {
+if {$folder_id eq ""} {
     ad_return_complaint 1 "[_ attachments.lt_Error_empty_folder_id]"
     ad_script_abort
 }