Index: openacs-4/contrib/obsolete-packages/wap/www/admin/toggle-wap-enabled.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/wap/www/admin/toggle-wap-enabled.tcl,v
diff -u -N -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/wap/www/admin/toggle-wap-enabled.tcl	20 Apr 2001 20:51:23 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/wap/www/admin/toggle-wap-enabled.tcl	18 Sep 2002 13:05:15 -0000	1.2
@@ -29,6 +29,7 @@
 	apm_generate_package_spec $version_id
     } on_error {
 	ad_return_error "Database Error" "Could not create WAPEnabledP parameter for package $package_key, version $version_id."
+        ad_script_abort
     }
 
     set current_stat 0
@@ -42,4 +43,4 @@
 
 ad_parameter -set $new_stat -package_id $package_id WAPEnabledP
 
-ns_returnredirect "/wap/admin?[export_url_vars supertype]"
\ No newline at end of file
+ad_returnredirect "/wap/admin?[export_url_vars supertype]"
\ No newline at end of file