Index: openacs-4/packages/file-storage/www/file-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/www/file-add.tcl,v
diff -u -r1.8.2.1 -r1.8.2.2
--- openacs-4/packages/file-storage/www/file-add.tcl	25 Apr 2004 19:19:39 -0000	1.8.2.1
+++ openacs-4/packages/file-storage/www/file-add.tcl	28 Apr 2004 16:07:42 -0000	1.8.2.2
@@ -112,8 +112,8 @@
     }
 
 } else {
-    set upload_files [list $upload_file]
-    set upload_tmpfiles [list ${upload_file.tmpfile}]
+    set upload_files [list [template::util::file::get_property filename $upload_file]]
+    set upload_tmpfiles [list [template::util::file::get_property tmp_filename $upload_file]]
 }
 
     foreach upload_file $upload_files tmpfile $upload_tmpfiles {