Index: openacs-4/packages/news-aggregator/www/opml-import-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/opml-import-2.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/news-aggregator/www/opml-import-2.tcl	7 Apr 2018 16:58:52 -0000	1.3
+++ openacs-4/packages/news-aggregator/www/opml-import-2.tcl	6 Apr 2021 13:33:26 -0000	1.4
@@ -27,12 +27,12 @@
 set context [list $page_title]
 
 if { [catch {
-    array set f [ad_httpget -url $url]
-    if { $f(status) != 200 } {
+    set f [util::http::get -url $url]
+    if { [dict get $f status] ne "200" } {
         error "Could not fetch document via HTTP."
     }
 
-    array set opml [news_aggregator::opml::parse -xml $f(page)]
+    array set opml [news_aggregator::opml::parse -xml [dict get $f page]]
 
     if { $opml(status) eq "failure" } {
 	error "OPML parse error: $opml(errmsg)"