Index: openacs-4/packages/file-storage/www/file-add-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/Attic/file-add-2.tcl,v
diff -u -r1.12 -r1.13
--- openacs-4/packages/file-storage/www/file-add-2.tcl	2 Sep 2003 10:04:53 -0000	1.12
+++ openacs-4/packages/file-storage/www/file-add-2.tcl	14 Oct 2003 13:53:29 -0000	1.13
@@ -30,7 +30,7 @@
 ad_require_permission $folder_id write
 
 # Get the filename part of the upload file
-if ![regexp {[^//\\]+$} $upload_file filename] {
+if { ![regexp {[^//\\]+$} $upload_file filename] } {
     # no match
     set filename $upload_file
 }