Index: openacs-4/packages/news-aggregator/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/index.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/news-aggregator/www/index.tcl	7 Apr 2018 17:05:12 -0000	1.12
+++ openacs-4/packages/news-aggregator/www/index.tcl	7 Apr 2018 17:08:29 -0000	1.13
@@ -146,11 +146,13 @@
         set purged_p 0
         # Handle purged items
         foreach purge $purges {
-            if { $item_id <= [lindex $purge 0] && $item_id >= [lindex $purge 1] &&
-             [lsearch $saved_items $item_id] == -1 } {
-            set purged_p 1
+            if { $item_id <= [lindex $purge 0]
+		 && $item_id >= [lindex $purge 1]
+		 && $item_id ni $saved_items
+	     }  {
+		set purged_p 1
+	    }
         }
-        }
         if { $purged_p } {
             continue
         }