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.14 -r1.4.2.15
--- openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	11 Sep 2019 18:57:44 -0000	1.4.2.14
+++ openacs-4/packages/acs-api-browser/tcl/test/acs-api-browser-procs.tcl	25 Sep 2019 15:57:02 -0000	1.4.2.15
@@ -215,8 +215,8 @@
         aa_true "Hints are printed in parenthesys, the proc type belongs to the hints" \
             [regexp "^\(.*$proc_type.*\)$" [string trim [api_proc_pretty_name -proc_type $proc_type -hints_only $proc]]]
 
-        aa_true "-include_debug_controls prints out a form" \
-            [regexp {^.*<form[^>]*>.*</form[^>]*.*$} [api_proc_pretty_name -include_debug_controls $proc]]
+        aa_true "-include_debug_controls prints out a form when XoTcl is installed" \
+            {[info commands ::xo::api] eq "" || [regexp {^.*<form[^>]*>.*</form[^>]*.*$} [api_proc_pretty_name -include_debug_controls $proc]]}
 
         aa_true "-link will put the proc URL somewhere" \
             [string match "*[ns_quotehtml [api_proc_url $proc]]*" [api_proc_pretty_name -link $proc]]