Index: openacs.org-dev/packages/webmail/www/admin/domain-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/webmail/www/admin/domain-add-2.tcl,v
diff -u -r1.1.1.1 -r1.1.1.2
--- openacs.org-dev/packages/webmail/www/admin/domain-add-2.tcl	9 Jul 2002 17:35:19 -0000	1.1.1.1
+++ openacs.org-dev/packages/webmail/www/admin/domain-add-2.tcl	8 Oct 2002 15:47:44 -0000	1.1.1.2
@@ -14,14 +14,14 @@
 set short_name [string tolower $short_name]
 
 if [db_0or1row check_if_domain_exists "select short_name as sn 
-from wm_domains where short_name = :short_name"] {
+ from wm_domains where short_name = :short_name"] {
     ad_return_complaint 1 "Short name already exists. You either double-clicked or forgot to choose a unique short name" 
-    return
+    ad_script_abort
 } else {
     db_dml add_domain {
 	insert into wm_domains (short_name, full_domain_name)
 	values (:short_name, :full_name)
     }
 }
 
-ad_returnredirect "index.tcl"
\ No newline at end of file
+ad_returnredirect {} 
\ No newline at end of file