Index: openacs-4/packages/xotcl-core/www/show-object.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/www/show-object.tcl,v
diff -u -N -r1.15.6.9 -r1.15.6.10
--- openacs-4/packages/xotcl-core/www/show-object.tcl	4 Sep 2014 12:43:04 -0000	1.15.6.9
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	10 Sep 2014 20:19:27 -0000	1.15.6.10
@@ -222,7 +222,7 @@
   if { [info exists doc_elements(see)] } {
     append output "<dt><b>See Also:</b>\n"
     foreach seeref $doc_elements(see) {
-      append output "<dd>[::apidoc::api_format_see $seeref]\n"
+      append output "<dd>[::apidoc::format_see $seeref]\n"
     }
   }
   if { [info exists doc_elements(creation-date)] } {
@@ -231,7 +231,7 @@
   if { [info exists doc_elements(author)] } {
     append output "<dt><b>Author[ad_decode [llength $doc_elements(author)] 1 "" "s"]:</b>\n"
     foreach author $doc_elements(author) {
-      append output "<dd>[::apidoc::api_format_author $author]\n"
+      append output "<dd>[::apidoc::format_author $author]\n"
     }
   }
   if { [info exists doc_elements(cvs-id)] } {
@@ -274,7 +274,7 @@
   if { $show_source } { 
     append output \
         "<pre class='code'>" \
-        [::apidoc::api_tcl_to_html [::xotcl::api proc_index $scope $object $proc $m]] \
+        [::apidoc::tcl_to_html [::xotcl::api proc_index $scope $object $proc $m]] \
         </pre>
   }
   return $output
@@ -304,7 +304,7 @@
         if { $show_source } { 
           append output \
               "<pre class='code'>" \
-              [::apidoc::api_tcl_to_html [::xotcl::api proc_index $scope $object instproc $m]] \
+              [::apidoc::tcl_to_html [::xotcl::api proc_index $scope $object instproc $m]] \
               </pre>
         }
       }