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 -N -r1.72.2.35 -r1.72.2.36
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	29 Oct 2021 10:35:59 -0000	1.72.2.35
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	30 Oct 2021 12:06:44 -0000	1.72.2.36
@@ -1183,24 +1183,24 @@
             }
         }
         if {[info exists body]} {
-            if {$isNx} {
-                #
-                # Beautify source code: delete the leading indent.
-                # First check, if we have an non-empty indent...
-                #
-                set lines [split $body \n]
-                set firstNonEmptyLine ""
-                foreach line $lines {
-                    if {[regexp {^(\s+)\S} $line . indent]} {
-                        break
-                    }
+            #
+            # Beautify source code: delete the leading indent.
+            # First check, if we have a nonempty indent...
+            #
+            set lines [split $body \n]
+            set firstNonEmptyLine ""
+            foreach line $lines {
+                if {[regexp {^(\s+)\S} $line . indent]} {
+                    break
                 }
-                #
-                # if we have some indent, remove it from the lines.
-                #
-                if {[info exists indent]} {
-                    set body [ns_trim -prefix $indent $body]
-                }
+            }
+            #
+            # if we have some indent, remove it from the lines.
+            #
+            if {[info exists indent]} {
+                set body [ns_trim -prefix $indent $body]
+            }
+            if {$isNx} {
                 set doc [::xo::api get_doc_block $body body]
             }
             return $body