Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.42.2.19 -r1.42.2.20
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	25 Oct 2004 16:28:05 -0000	1.42.2.19
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	4 Nov 2004 12:27:28 -0000	1.42.2.20
@@ -675,7 +675,7 @@
         set storage_type "file"
     }
 
-    set mime_type [cr_filename_to_mime_type -create $name]
+    set mime_type [cr_filename_to_mime_type -create -- $name]
     switch  [cr_registered_type_for_mime_type $mime_type] {
         image {
 	    set content_type "image"
@@ -735,7 +735,7 @@
     if {[string equal "" $storage_type]} {
         set storage_type [db_string get_storage_type ""]
     }
-    set mime_type [cr_filename_to_mime_type -create $name]
+    set mime_type [cr_filename_to_mime_type -create -- $name]
     set tmp_size [file size $tmp_filename]
     set parent_id [get_parent -item_id $item_id]
     set revision_id [cr_import_content \