Index: openacs-4/packages/attachments/tcl/attachments-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/attachments/tcl/attachments-procs.tcl,v
diff -u -r1.17 -r1.18
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	29 May 2009 18:13:24 -0000	1.17
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	27 Oct 2014 16:41:05 -0000	1.18
@@ -31,7 +31,7 @@
         {-package_id ""}
     } {
     } {
-        if {[empty_string_p $package_id]} {
+        if {$package_id eq ""} {
             # Get the package ID from the parent URL
             array set parent_node [site_node::get_parent -node_id [ad_conn node_id]]
             set package_id $parent_node(object_id)
@@ -91,7 +91,7 @@
     } {
         toggle approved_p for attachment
     } {
-        if {[empty_string_p $approved_p]} {
+        if {$approved_p eq ""} {
             set approved_p [ad_decode [db_string select_attachment_approved_p {}] f t f]
         }