Index: openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	9 Feb 2002 02:33:35 -0000	1.2
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	2 Sep 2002 13:20:39 -0000	1.3
@@ -279,8 +279,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 +1082,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
 	}
     }