Index: openacs-4/packages/acs-api-browser/www/content-page-view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-api-browser/www/content-page-view.tcl,v
diff -u -r1.5.4.6 -r1.5.4.7
--- openacs-4/packages/acs-api-browser/www/content-page-view.tcl	2 Sep 2014 18:04:07 -0000	1.5.4.6
+++ openacs-4/packages/acs-api-browser/www/content-page-view.tcl	10 Sep 2014 20:19:26 -0000	1.5.4.7
@@ -64,20 +64,11 @@
     multirow create xql_links link
 } else {
     if { $source_p } {
-        if {[catch {
-        
-            set fd [open $filename r]
-            set file_contents [read $fd]
-            close $fd
-        
-        } err ]} {
-            set file_contents "error opening '$filename'\n$err"
-        } else {
-            set file_contents [ad_quotehtml $file_contents]
-        }
+	set file_contents [template::util::read_file $filename]
+	set file_contents [apidoc::tclcode_to_html $file_contents]
     }
 
-    template::util::list_to_multirow xql_links [::apidoc::api_xql_links_list $path]
+    template::util::list_to_multirow xql_links [::apidoc::xql_links_list $path]
 }