Index: openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl,v
diff -u -r1.4.2.33 -r1.4.2.34
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	21 Jan 2022 12:56:43 -0000	1.4.2.33
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	3 Feb 2022 08:25:02 -0000	1.4.2.34
@@ -682,10 +682,12 @@
                     set documentation ""
                 }
                 set code [api_get_body $proc_name]
-                aa_false "'$proc_name' body smells" \
-                    [regexp -nocase -- $rx $code]
-                aa_false "'$proc_name' doc smells" \
-                    [regexp -nocase -- $rx $documentation]
+                set smells_p [regexp -nocase -- $rx $code m smell]
+                set smell [expr {$smells_p ? "of '$smell'" : ""}]
+                aa_false "'$proc_name' body smells $smell" $smells_p
+                set smells_p [regexp -nocase -- $rx $documentation m smell]
+                set smell [expr {$smells_p ? "of '$smell'" : ""}]
+                aa_false "'$proc_name' doc smells $smell" $smells_p
             }
         }
     }