Index: openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl,v
diff -u -r1.10.2.30 -r1.10.2.31
--- openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	22 Jul 2024 14:00:06 -0000	1.10.2.30
+++ openacs-4/packages/file-storage/tcl/test/file-storage-procs.tcl	27 Aug 2024 14:27:36 -0000	1.10.2.31
@@ -879,15 +879,21 @@
         #
         # Try to create the file via the UI
         #
-        set d [::acs::test::form_reply \
-                   -last_request $d \
-                   -form $form \
-                   -update [list \
-                                upload_file [list $file_name $notmpfile "text/plain"] \
-                                title $file_name \
-                                description $file_name \
-                               ]]
-
+        aa_silence_log_entries -severities error {
+            #
+            # The uploaded file is rejected, due to the invalid tmp
+            # file.
+            #
+            set d [::acs::test::form_reply \
+                       -last_request $d \
+                       -form $form \
+                       -update [list \
+                                    upload_file [list $file_name $notmpfile "text/plain"] \
+                                    title $file_name \
+                                    description $file_name \
+                                   ]]
+        }
+        ns_log notice $d
         #
         # When upload succeeds, a redirect is returned. Here we want
         # to make sure our upload was rejected, but without a server