Index: openacs-4/packages/acs-tcl/tcl/defs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/defs-procs.tcl,v
diff -u -r1.55 -r1.56
--- openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	15 Jan 2007 06:56:11 -0000	1.55
+++ openacs-4/packages/acs-tcl/tcl/defs-procs.tcl	29 Aug 2007 13:53:40 -0000	1.56
@@ -392,10 +392,12 @@
 
     @param exception_text HTML chunk to go inside an UL tag with the error messages.
 } {
+    set complaint_template [parameter::get_from_package_key -package_key "acs-tcl" -parameter "ReturnComplaint" -default "/packages/acs-tcl/lib/ad-return-complaint"]
     ns_return 200 text/html [ad_parse_template \
                                  -params [list [list exception_count $exception_count] \
                                               [list exception_text $exception_text]] \
-                                 "/packages/acs-tcl/lib/ad-return-complaint"]
+				 $complaint_template]
+				 
     
     # raise abortion flag, e.g., for templating
     global request_aborted
@@ -416,7 +418,8 @@
     @param title Title to be used for the error (will be shown to user)
     @param explanation Explanation for the exception.
 } {
-    set page [ad_parse_template -params [list [list title $title] [list explanation $explanation]] "/packages/acs-tcl/lib/ad-return-error"]
+    set error_template [parameter::get_from_package_key -package_key "acs-tcl" -parameter "ReturnError" -default "/packages/acs-tcl/lib/ad-return-error"]
+    set page [ad_parse_template -params [list [list title $title] [list explanation $explanation]] $error_template]
     if {$status > 399 
         && [string match {*; MSIE *} [ns_set iget [ad_conn headers] User-Agent]]
         && [string length $page] < 512 } {