Author:	ben
Update of /cvsroot/openacs-4/packages/file-storage/tcl
In directory ny04.openforce.net:/tmp/cvs-serv8772/tcl

Modified Files:
	file-storage-procs.tcl 
Log Message:
fixed file storage guessing of mimetype so as not to create new mime types - not the appropriate place.