Index: openacs-4/packages/download/tcl/download-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/download/tcl/download-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/download/tcl/download-procs.tcl	10 Sep 2002 22:22:34 -0000	1.8
+++ openacs-4/packages/download/tcl/download-procs.tcl	20 Sep 2002 22:40:41 -0000	1.9
@@ -23,10 +23,11 @@
             if { $admin_p } {
                 set repository_id [db_nextval acs_object_id_seq]
                 set return_url "[ad_conn package_url]admin/repository-types"
-                ad_return_error "Not setup" "Please <a href=\"[ad_conn package_url]admin/repository-ae?[export_url_vars repository_id return_url]\">configure this instance of the download module</a>."
+                ad_return_exception_page 200 "Not setup" "Please <a href=\"[ad_conn package_url]admin/repository-ae?[export_url_vars repository_id return_url]\">configure this instance of the download module</a>."
             } else {
-                ad_return_error "Not setup" "Please have an admin configure this instance of the download module."
+                ad_return_exception_page 200 "Not setup" "Please have an admin configure this instance of the download module."
             }
+            ad_script_abort
         }
     } else {
         if { $do_redirect } {
@@ -36,7 +37,8 @@
             }]
                 if { $count == 0 } {
                     set return_url "[ad_conn url]?[ad_conn query]"
-                    ad_return_error "Not setup" "Please <a href=\"[ad_conn package_url]admin/repository-types?[export_url_vars repository_id return_url]\">add a download type</a>."
+                    ad_return_exceptio_page 200 "Not setup" "Please <a href=\"[ad_conn package_url]admin/repository-types?[export_url_vars repository_id return_url]\">add a download type</a>."
+                    ad_script_abort
                 }
             }
     }