Index: openacs-4/packages/attachments/www/simple-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/www/simple-add.tcl,v
diff -u -r1.9.4.1 -r1.9.4.2
--- openacs-4/packages/attachments/www/simple-add.tcl	7 Sep 2013 08:34:22 -0000	1.9.4.1
+++ openacs-4/packages/attachments/www/simple-add.tcl	2 Oct 2013 23:08:45 -0000	1.9.4.2
@@ -15,7 +15,7 @@
     {lock_title_p 0}
 } -validate {
     valid_folder -requires {folder_id:integer} {
-        if ![fs_folder_p $folder_id] {
+        if {![fs_folder_p $folder_id]} {
             ad_complain "[_ attachments.lt_The_specified_parent_]"
         }
     }
@@ -31,7 +31,7 @@
 # set templating datasources
 
 set pretty_name "URL"
-if {[empty_string_p $pretty_name]} {
+if {$pretty_name eq ""} {
     return -code error "[_ attachments.No_such_type]"
 }
 
@@ -42,6 +42,6 @@
 # double-click protection
 
 # if title isn't passed in ignore lock_title_p
-if {[empty_string_p $title]} {
+if {$title eq ""} {
     set lock_title_p 0
 }