Index: openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl	27 Jun 2015 20:03:21 -0000	1.7
+++ openacs-4/packages/edit-this-page/www/etp-subtopic-create.tcl	20 Jan 2018 22:42:50 -0000	1.8
@@ -21,6 +21,7 @@
     if { $subtopic_name eq "" ||
          [regexp {[^a-zA-Z0-9\-_]} $subtopic_name] } {
 	ad_return_complaint 1 "[_ edit-this-page.The_subtopic_name_must_be_a_short_identifier]"
+	ad_script_abort
     } else {
 	set new_package_id [subsite::auto_mount_application \
 	    -instance_name $subtopic_name \
@@ -39,6 +40,7 @@
 	apm_parameter_sync "edit-this-page" $new_package_id
 	set title $subtopic_title
 	ad_returnredirect [export_vars -base $subtopic_name/etp-setup-2 {title}]
+	ad_script_abort
     }
     ad_script_abort
 } else {