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} {