Index: openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl,v
diff -u -N -r1.1.1.1 -r1.1.1.1.2.1
--- openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	17 Feb 2003 20:56:16 -0000	1.1.1.1
+++ openacs-4/packages/dotlrn-homework/tcl/dotlrn-homework-procs.tcl	20 Feb 2003 02:29:18 -0000	1.1.1.1.2.1
@@ -89,7 +89,7 @@
         # The content repository is kinda stupid about mime types,
         # so we have to check if we know about this one and possibly 
         # add it.
-        set mime_type [fs_maybe_create_new_mime_type $filename]
+        set mime_type [cr_filename_to_mime_type $filename]
 
         # Get the storage type
         set indb_p [ad_decode [ad_parameter "StoreFilesInDatabaseP" -package_id [ad_conn package_id]] 1 "t" "f"]