Index: openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	29 Oct 2003 10:12:41 -0000	1.16
+++ openacs-4/packages/acs-bootstrap-installer/tcl/00-proc-procs.tcl	15 Dec 2003 15:49:56 -0000	1.16.2.1
@@ -393,7 +393,8 @@
 ad_proc -public -deprecated proc_doc { args } {
 
     A synonym for <code>ad_proc</code> (to support legacy code).
-    
+
+    @see ad_proc
 } {
     eval ad_proc $args
 }
@@ -409,7 +410,7 @@
 } {
     <p>
     Declare a procedure with the following enhancements
-    over regular Tcl "<tt>proc</tt>":
+    over regular Tcl "<code>proc</code>":
     </p>
     
     <p>
@@ -464,7 +465,7 @@
 
     <p>
     Here's an example with named parameters, and namespaces (notice the preferred way of
-    declaring namespaces and namespaced procedures). Ignore the "\" in "\@param",
+    declaring namespaces and namespaced procedures). Ignore the \ in "\@param",
     I had to use it so the api-browser wouldn't think the parameter docs were for ad_proc
     itself:
     </p>
@@ -602,7 +603,7 @@
 } -
 
 # procedures for doing type based dispatch
-ad_proc ad_method {
+ad_proc -proc ad_method {
     method_name
     type
     argblock
@@ -623,7 +624,7 @@
     ad_proc ${method_name}__$type $argblock $docblock $body
 }
 
-ad_proc ad_call_method {
+ad_proc -public ad_call_method {
     method_name
     object_id
     args 
@@ -641,7 +642,7 @@
     return [apply ${method_name}__[util_memoize "acs_object_type $object_id"] [concat $object_id $args]]
 }
 
-ad_proc ad_dispatch {
+ad_proc -public ad_dispatch {
     method_name
     type
     args