Index: openacs-4/packages/xowf/tcl/test/test-item-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/test/Attic/test-item-procs.tcl,v
diff -u -r1.1.2.24 -r1.1.2.25
--- openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	20 Jan 2022 11:32:54 -0000	1.1.2.24
+++ openacs-4/packages/xowf/tcl/test/test-item-procs.tcl	31 Jan 2022 11:53:01 -0000	1.1.2.25
@@ -326,14 +326,19 @@
             #
             acs::test::dom_html root [dict get $d1 body] {
                 set hrefs [$root selectNodes {//img[@class='image']/@src}]
-                set found_one_image [lmap qn {sample_mc_0 sample_st_0 sample_text_0} {
-                    if {![string match *$qn* $hrefs]} {
-                        continue
+                set found_one_image false
+                set has_raw_and_self false
+                foreach qn {sample_mc_0 sample_st_0 sample_text_0} {
+                    if {[string match *$qn* $hrefs]} {
+                        set has_raw_and_self [expr {$qn eq "sample_mc_0"}]
+                        set found_one_image true
+                        break
                     }
-                    set _ 1
-                }]
+                }
                 aa_true "Images '$hrefs' were found" $found_one_image
-                aa_true "raw and self could be rendered" {[llength $hrefs] > 1}
+                if {$has_raw_and_self} {
+                    aa_true "raw and self could be rendered" {[llength $hrefs] > 1}
+                }
             }
 
             #