Index: openacs-4/packages/news/lib/latest-news.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/news/lib/latest-news.tcl,v
diff -u -N -r1.5 -r1.6
--- openacs-4/packages/news/lib/latest-news.tcl	15 Nov 2017 13:12:49 -0000	1.5
+++ openacs-4/packages/news/lib/latest-news.tcl	24 Apr 2018 14:28:56 -0000	1.6
@@ -56,10 +56,7 @@
 multirow create news item_id title lead publish_date url date
 util_memoize_flush $script
 foreach row [util_memoize $script $cache] {
-    set item_id [lindex $row 0]
-    set title [lindex $row 1]
-    set lead [lindex $row 2]
-    set publish_date [lindex $row 3]
+    lassign $row item_id title lead publish_date
     set url "${base_url}item?item_id=$item_id"
     set date [lc_time_fmt $publish_date {%x}]