Index: openacs-4/packages/search/tcl/test/search-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/search/tcl/test/Attic/search-procs.tcl,v
diff -u -N -r1.1.2.5 -r1.1.2.6
--- openacs-4/packages/search/tcl/test/search-procs.tcl	9 Mar 2023 13:39:18 -0000	1.1.2.5
+++ openacs-4/packages/search/tcl/test/search-procs.tcl	14 Mar 2023 15:35:51 -0000	1.1.2.6
@@ -36,10 +36,13 @@
             pptx application/vnd.openxmlformats-officedocument.presentationml.presentation
         } {
             set filename [acs_root_dir]/packages/search/tcl/test/data/test.$extension
-            aa_true "Text was extracted correctly for '.$extension'/'$mime_type'" {
-                [string first "OpenACS" [search::convert::binary_to_text \
-                                             -filename $filename \
-                                             -mime_type $mime_type]] >= 0
+            set text [search::convert::binary_to_text \
+                          -filename $filename \
+                          -mime_type $mime_type]
+            set ok_p [expr {[string first "OpenACS" $text] >= 0}]
+            aa_true "Text was extracted correctly for '.$extension'/'$mime_type'" $ok_p
+            if {!$ok_p} {
+                aa_log "Extracted text: [ns_quotehtml $text]"
             }
         }
     }