Index: openacs-4/packages/simulation/tcl/ui-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/simulation/tcl/ui-procs.tcl,v
diff -u -r1.5.2.3 -r1.5.2.4
--- openacs-4/packages/simulation/tcl/ui-procs.tcl	2 Sep 2005 11:49:33 -0000	1.5.2.3
+++ openacs-4/packages/simulation/tcl/ui-procs.tcl	1 Dec 2005 08:40:03 -0000	1.5.2.4
@@ -189,5 +189,7 @@
     set extension [string tolower [string trimleft [file extension $upload_filename] "."]]
     set orig_mime_type [template::util::file::get_property mime_type $document_file]
 
-    cr_create_mime_type -extension $extension -mime_type $orig_mime_type
+    # Use empty description because otherwise cr_create_mime_type bombs
+    cr_create_mime_type -extension $extension -mime_type $orig_mime_type \
+	-description ""
 }
\ No newline at end of file