Index: openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	11 Sep 2024 06:15:53 -0000	1.23
+++ openacs-4/packages/rss-support/tcl/rss-generation-procs.tcl	8 Oct 2024 15:02:58 -0000	1.24
@@ -101,7 +101,7 @@
 
     # now top level items
     foreach item $items {
-        array unset iarray
+        unset -nocomplain iarray
         array set iarray $item
         append rss {<item>} \n
 
@@ -235,9 +235,7 @@
 
     # channel item handling
     foreach item $items {
-        array unset iarray
-        array set iarray $item
-        append rss "<rdf:li rdf:resource=\"[ns_quotehtml $iarray(link)]\" />\n"
+        append rss "<rdf:li rdf:resource=\"[ns_quotehtml [dict get $item link]]\" />\n"
     }
 
     append rss "</rdf:Seq>\n"
@@ -257,7 +255,7 @@
 
     # now top level items
     foreach item $items {
-        array unset iarray
+        unset -nocomplain iarray
         array set iarray $item
         append rss "<item rdf:about=\"[ns_quotehtml $iarray(link)]\">\n"
         set element [ns_quotehtml $iarray(title)]
@@ -429,7 +427,7 @@
 
     # now do the items
     foreach item $items {
-        array unset iarray
+        unset -nocomplain iarray
         array set iarray $item
         append rss "<item>\n"
         set element [ns_quotehtml $iarray(title)]