Index: openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl,v diff -u -r1.72.2.34 -r1.72.2.35 --- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 28 Oct 2021 10:10:28 -0000 1.72.2.34 +++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl 29 Oct 2021 10:35:59 -0000 1.72.2.35 @@ -1199,11 +1199,7 @@ # if we have some indent, remove it from the lines. # if {[info exists indent]} { - set lines [lmap line $lines { - set x [regexp "^${indent}(.*)$" $line . line] - set line - }] - set body [join $lines \n] + set body [ns_trim -prefix $indent $body] } set doc [::xo::api get_doc_block $body body] }