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.27.8.4 -r1.27.8.5
--- openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	6 Sep 2013 11:39:37 -0000	1.27.8.4
+++ openacs-4/packages/acs-api-browser/tcl/acs-api-documentation-procs.tcl	13 Sep 2013 07:05:07 -0000	1.27.8.5
@@ -626,11 +626,11 @@
                          -parameter FancySourceFormattingP \
                          -default 1]} {
 			append out "<dt><b>Source code:</b></dt><dd>
-<pre>[api_tcl_to_html $proc_name]<pre>
+<pre>[api_tcl_to_html $proc_name]</pre>
 </dd><p>\n"
 		} else {
 		append out "<dt><b>Source code:</b></dt><dd>
-<pre>[ns_quotehtml [api_get_body $proc_name]]<pre>
+<pre>[ns_quotehtml [api_get_body $proc_name]]</pre>
 </dd><p>\n"
 	        }
         }
@@ -642,21 +642,21 @@
                 set missing {}
 		if { [file exists ${xql_base_name}.xql] } {
 			append there "<dt><b>Generic XQL file:</b></dt>
-<blockquote>[api_quote_file ${xql_base_name}.xql]</blockquote>
+<blockquote><pre>[api_quote_file ${xql_base_name}.xql]</pre></blockquote>
 <p>\n"
 		} else {
                       lappend missing Generic
 		}
 		if { [file exists ${xql_base_name}-postgresql.xql] } {
 			append there "<dt><b>Postgresql XQL file:</b></dt>
-<blockquote>[api_quote_file ${xql_base_name}-postgresql.xql]</blockquote>
+<blockquote><pre>[api_quote_file ${xql_base_name}-postgresql.xql]</pre></blockquote>
 <p>\n"
 		} else {
                       lappend missing PostgreSQL
 		}
 		if { [file exists ${xql_base_name}-oracle.xql] } {
 			append there "<dt><b>Oracle XQL file:</b></dt>
-<blockquote>[api_quote_file ${xql_base_name}-oracle.xql]</blockquote>
+<blockquote><pre>[api_quote_file ${xql_base_name}-oracle.xql]</pre></blockquote>
 <p>\n"
 		} else {
                     lappend missing Oracle