Index: openacs-4/packages/news-aggregator/www/subscriptions.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news-aggregator/www/subscriptions.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/news-aggregator/www/subscriptions.tcl	9 Apr 2018 14:30:31 -0000	1.12
+++ openacs-4/packages/news-aggregator/www/subscriptions.tcl	19 Jul 2018 17:10:48 -0000	1.13
@@ -141,12 +141,12 @@
     {add_submit:text(submit) 
         {label "Add"}
     }
-} -validate {
-    {feed_url
-        { $feed_url ne "" && "http://" ne $feed_url }
-        { You must specify a URL }
-    }
 } -new_data {
+    set parsed_feed [ns_parseurl $feed_url]
+    if {![dict exists $parsed_feed proto]} {
+        template::form::set_error add_subscription feed_url "You must specify a valid URL"
+        break
+    }
     set channel_array [news_aggregator::source::new \
         -feed_url $feed_url \
         -aggregator_id $aggregator_id \