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.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	12 Nov 2003 10:53:05 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/tcl-documentation-procs.tcl	22 Dec 2003 21:53:20 -0000	1.18
@@ -1118,7 +1118,11 @@
 	    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] "</li>\n<li>"]</li>\n"
+            template::multirow create complaints text
+            foreach elm [ad_complaints_get_list] {
+                template::multirow append complaints $elm
+            }
+            ns_return 200 text/html [ad_parse_template -params [list complaints] "/packages/acs-tcl/lib/complain"]
 	    ad_script_abort
 	}
     }