Index: openacs.org-dev/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	9 Jul 2002 17:34:59 -0000	1.1.1.1
+++ openacs.org-dev/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	8 Oct 2002 15:46:50 -0000	1.1.1.2
@@ -22,8 +22,9 @@
     Determines whether the thread is in "gathering documentation" or "executing the page" mode.
 
     @return true if the thread is in "gathering documentation" mode, or false otherwise.
-    @see doc_set_page_documentation_mode_p
 
+    @see doc_set_page_documentation_mode
+
 } {
     global ad_conn
     if { [info exists ad_conn(api_page_documentation_mode_p)] } {
@@ -217,7 +218,7 @@
     proc invocation.
 
     @author Lars Pind (lars@pinds.com) 
-    @author 25 July 2000
+    @creation-date 25 July 2000
 } {
     uplevel 1 $args
 }
@@ -279,8 +280,8 @@
     An argspec takes one of two forms, depending on whether there's a default value or not:
 
     <ol>
-    <li><blockquote><code>{<i>name</i>[:<i>flag</i>,<i>flag</i>,<i>flag</i>] <i>default</i>}</code></blockquote>
-    <li><blockquote><code><i>name</i>[:<i>flag</i>,<i>flag</i>,<i>flag</i>]</code></blockquote>
+    <li><blockquote><code>{<i>name</i>[:<i>flag</i>,<i>flag</i>,<i>flag</i>] <i>default</i>}</code></blockquote></li>
+    <li><blockquote><code><i>name</i>[:<i>flag</i>,<i>flag</i>,<i>flag</i>]</code></blockquote></li>
     </ol>
 
     <p>
@@ -1082,7 +1083,7 @@
 	    upvar 1 $return_errors error_list
 	    set error_list [ad_complaints_get_list]
 	} else {
-	    ad_return_complaint [ad_complaints_count] "<li>[join [ad_complaints_get_list] "\n<li>"]"
+	    ad_return_complaint [ad_complaints_count] "<li>[join [ad_complaints_get_list] "</li>\n<li>"]</li>\n"
 	    ad_script_abort
 	}
     }
@@ -1260,16 +1261,16 @@
     # If you declare a filter like this: ad_page_contract_filter foo { name value } { ... }
     # it turns into this proc:
     # ad_proc ad_page_contract_filter_proc_foo { name value_varname } { upvar $value_varname value ; ... }
-    # so that when the filter proc is passed the name of a variable, the body of the proc
+    # so that when the filtger proc is passed the name of a variable, the body of the proc
     # will have access to that variable as if the value had been passed.
 
     set arg0 [lindex $proc_args 0]
     set arg1 [lindex $proc_args 1]
     if { $proc_args_len == 2 } {
-	ad_proc $proc_name [list $arg0 ${arg1}_varname] $doc_string "upvar \$${arg1}_varname $arg1\n$body"
+	ad_proc -public $proc_name [list $arg0 ${arg1}_varname] $doc_string "upvar \$${arg1}_varname $arg1\n$body"
     } else {
 	set arg2 [lindex $proc_args 2]
-	ad_proc $proc_name [list $arg0 ${arg1}_varname $arg2] $doc_string "upvar \$${arg1}_varname $arg1\n$body"
+	ad_proc -public $proc_name [list $arg0 ${arg1}_varname $arg2] $doc_string "upvar \$${arg1}_varname $arg1\n$body"
     }
 }