Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	10 Sep 2002 22:22:14 -0000	1.7
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	18 Sep 2002 12:10:44 -0000	1.8
@@ -68,8 +68,10 @@
 	    set redir "https://$host:$ssl_port$url"
 	}
 	ad_returnredirect $redir
+        ad_script_abort
     } else {
 	ad_return_forbidden "Please use HTTPS" "Sorry, you must use HTTPS to access this page."
+        ad_script_abort
     }
     
     return "filter_return"