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.20 -r1.21
--- openacs-4/packages/attachments/tcl/attachments-procs.tcl	19 Jun 2018 15:09:11 -0000	1.20
+++ openacs-4/packages/attachments/tcl/attachments-procs.tcl	19 Jun 2018 15:55:27 -0000	1.21
@@ -91,10 +91,6 @@
     } {
         toggle approved_p for attachment
     } {
-        if {$approved_p eq ""} {
-            set approved_p [ad_decode [db_string select_attachment_approved_p {}] f t f]
-        }
-
         db_dml toggle_approved_p {}
     }