Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	8 Aug 2007 09:57:16 -0000	1.2
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	8 Aug 2007 10:35:51 -0000	1.3
@@ -33,7 +33,11 @@
       if {[nsv_exists api_proc_doc $proc_index]} {
         return "<a href='/api-doc/proc-view?proc=[ns_urlencode $proc_index]'>$method</a>"
       } else {
-        return $method
+        if {[$obj info ${kind}s $method] eq ""} {
+          return $method<SUP>C</SUP>
+        } else {
+          return $method
+        }
       }
     } \
     -proc isclass {scope obj} {
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 -r1.8 -r1.9
--- openacs-4/packages/xotcl-core/www/show-object.tcl	8 Aug 2007 10:11:12 -0000	1.8
+++ openacs-4/packages/xotcl-core/www/show-object.tcl	8 Aug 2007 10:35:51 -0000	1.9
@@ -129,7 +129,8 @@
   set pretty [list]
   foreach m $methods {
     if {[info exists param($m)]} continue
-    lappend pretty [::xotcl::api method_link $c instproc $m]
+    set entry [::xotcl::api method_link $c instproc $m]
+    lappend pretty $entry
   }
   if {[llength $pretty]>0} {
     append result "<dt><em>Methods for instances:</em></dt> <dd>[join $pretty {, }]</dd>"
@@ -143,6 +144,8 @@
   }
   if {[llength $pretty]>0} {
     append result "<dt><em>Methods to be applied on the class (in addition to the methods provided by the meta-class):</em></dt> <dd>[join $pretty {, }]</dd>"
+  } else {
+    append result "<dt><em>Methods to be applied on the class:</em></dt><dd>Methods provided by the meta-class</dd>"
   }
 
   if {$result ne ""} {