Index: openacs-4/packages/forums/tcl/test/forums-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/forums/tcl/test/forums-procs.tcl,v
diff -u -N -r1.11.2.11 -r1.11.2.12
--- openacs-4/packages/forums/tcl/test/forums-procs.tcl	20 Mar 2023 15:02:15 -0000	1.11.2.11
+++ openacs-4/packages/forums/tcl/test/forums-procs.tcl	21 Mar 2023 13:51:37 -0000	1.11.2.12
@@ -140,8 +140,7 @@
                                       -content "bar"]
 
             aa_equals "There are no attachments on message '$message_id'" \
-                [forum::message::get_attachments -message_id $message_id] \
-                ""
+                [llength [attachments::get_attachments -object_id $message_id]] 0
             set attachments [db_list any_objects {
                 select object_id from acs_objects
                 where object_id not in (:message_id, :child_message_id, :forum_id, :package_id)