Index: openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl,v
diff -u -r1.20 -r1.21
--- openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	3 Sep 2024 15:37:31 -0000	1.20
+++ openacs-4/packages/acs-content-repository/tcl/publish-procs.tcl	8 Oct 2024 13:16:12 -0000	1.21
@@ -136,7 +136,7 @@
     } else {
       # This is the first id pushed - also clear the cache
       set item_id_stack [list $pair]
-      array unset revision_html
+      unset -nocomplain revision_html
     }
   } else {
     set item_id_stack [list]
@@ -174,7 +174,7 @@
 
   # If the stack is now empty, clear the cache
   if { [template::util::is_nil item_id_stack] } {
-    array unset revision_html
+      unset -nocomplain revision_html
   }
 
   lassign $pair ::content::item_id ::content::revision_id