Index: openacs-4/packages/forums/tcl/messages-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/messages-procs.tcl,v
diff -u -r1.61 -r1.62
--- openacs-4/packages/forums/tcl/messages-procs.tcl	11 Sep 2024 06:15:51 -0000	1.61
+++ openacs-4/packages/forums/tcl/messages-procs.tcl	8 Oct 2024 14:52:09 -0000	1.62
@@ -335,7 +335,7 @@
     upvar $array row
 
     # make sure array is empty
-    array unset row
+    unset -nocomplain row
 
     set forum_id [::xo::dc list -prepare integer get_forum_id_from_message_id {
         select forum_id from forums_messages where message_id = :message_id