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 -r1.2 -r1.3
--- openacs-4/packages/news-aggregator/tcl/source-procs.tcl	20 Mar 2004 13:21:00 -0000	1.2
+++ openacs-4/packages/news-aggregator/tcl/source-procs.tcl	20 Mar 2004 13:30:17 -0000	1.3
@@ -49,6 +49,8 @@
     set last_modified $f(modified)
     
     db_exec_plsql add_source {}
+
+    update -source_id $source_id -feed_url $feed_url -modified ""
     
     if { [exists_and_not_null aggregator_id] } {
         news_aggregator::subscription::new \