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 -N -r1.4.2.31 -r1.4.2.32
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	2 Sep 2021 16:40:49 -0000	1.4.2.31
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	6 Oct 2021 14:26:53 -0000	1.4.2.32
@@ -350,6 +350,7 @@
     -cats { api smoke production_safe } \
     -procs {
         apidoc::tclcode_to_html
+        apidoc::tcl_to_html
         ad_looks_like_html_p
         ad_urldecode_query
     } \
@@ -392,6 +393,18 @@
                 {[string first [ns_quotehtml [ad_urldecode_query $script]] $output] > -1}
         }
 
+        foreach script $commands {
+            set output [apidoc::tcl_to_html $script]
+            aa_true "Proc '$script' returns some HTML" \
+                [ad_looks_like_html_p $output]
+            aa_true "Proc '$script' contains links to commands documentation" \
+                {
+                    [string first /api-doc/proc-view $output] > -1 ||
+                    [string first /api-doc/tcl-proc $output] > -1 ||
+                    [string first /xotcl/show-object $output] > -1
+                }
+        }
+
         aa_true "Specifying OO flags on non-OO commands is not harmful" \
             {[apidoc::tclcode_to_html -scope [ad_generate_random_string] apidoc::tclcode_to_html] eq [apidoc::tclcode_to_html apidoc::tclcode_to_html]}