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.12 -r1.13
--- openacs-4/packages/news-aggregator/tcl/source-procs.tcl	24 Apr 2018 14:28:56 -0000	1.12
+++ openacs-4/packages/news-aggregator/tcl/source-procs.tcl	30 Apr 2018 12:45:00 -0000	1.13
@@ -215,8 +215,7 @@
             ns_log Debug "source::update: guid $guid marked as new"
         } else {
             set new_p 0
-            set db_title [lindex $existing_items($guid) 0]
-            set db_description [lindex $existing_items($guid) 1]
+            lassign $existing_items($guid) db_title db_description
 
             ns_log Debug "source::update: guid $guid marked as existing\ttitle = $db_title\tdescription = $db_description"
         }