Index: openacs-4/packages/file-manager/www/file-upload-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-manager/www/file-upload-2.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/file-manager/www/file-upload-2.tcl	10 Sep 2002 22:22:54 -0000	1.2
+++ openacs-4/packages/file-manager/www/file-upload-2.tcl	18 Sep 2002 12:12:43 -0000	1.3
@@ -19,7 +19,7 @@
 
 if ![fm_valid_filename_p $title] {
     ad_return_complaint "<li>Invalid file name (no spaces, & or /'s)"
-    return
+    ad_script_abort
 }
 
 if {![empty_string_p $title] && [empty_string_p [file ext $title]]} {
@@ -55,15 +55,15 @@
 	
 	<pre>$errmsg</pre>
 	"
-	return
+        ad_script_abort
     }
     
     if {[fm_adp_function_p $text]} {
 	ad_return_error "Permission Denied" "
 	<P>We're sorry, but files edited with the file manager cannot
 	have functions in them for security reasons. Only HTML and 
 	<%= \$variable %> style code may be used."
-	return
+        ad_script_abort
     }
 } elseif [regexp {text} $file_type] {
 
@@ -81,7 +81,7 @@
 	
 	<pre>$errmsg</pre>
 	"
-	return
+        ad_script_abort
     }
     
     # for Windows
@@ -121,5 +121,4 @@
 }
 
 ad_returnredirect "file-list?path=[file dirname $path]"
-return