Index: openacs-4/packages/news-aggregator/tcl/source-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/tcl/source-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/news-aggregator/tcl/source-procs.tcl	1 Jun 2004 12:18:31 -0000	1.6
+++ openacs-4/packages/news-aggregator/tcl/source-procs.tcl	7 Apr 2018 11:09:13 -0000	1.7
@@ -128,7 +128,7 @@
     
     set headers [ns_set create]
     ns_set put $headers "If-Modified-Since" $modified
-    ns_set put $headers "Referer" [ad_parameter "referer"]
+    ns_set put $headers "Referer" [parameter::get -parameter "referer"]
 
     if { [catch { array set f [ad_httpget \
                                     -url $feed_url \
@@ -209,7 +209,7 @@
                         -description $item(description) \
                         -guid $item(guid)]
         
-        if { [lsearch -exact $existing_guids $guid] == -1 } {
+        if {$guid ni $existing_guids} {
             set new_p 1
 	    ns_log Debug "source::update: guid $guid marked as new"
         } else {