Index: openacs-4/packages/assessment/tcl/as-file-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-file-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/assessment/tcl/as-file-procs.tcl	13 Jan 2005 18:24:09 -0000	1.5
+++ openacs-4/packages/assessment/tcl/as-file-procs.tcl	25 Jan 2005 12:40:01 -0000	1.6
@@ -26,7 +26,7 @@
     set filename [template::util::file::get_property filename $file_pathname]
     set file_mimetype [cr_filename_to_mime_type -create $filename]
     set content_length [file size $file_pathname]
-    set content_rev_id [cr_import_content -title $filename $folder_id $file_pathname $content_length $file_mimetype [exec uuidgen]]
+    set content_rev_id [cr_import_content -title $file_name $folder_id $file_pathname $content_length $file_mimetype [exec uuidgen]]
 
     return $content_rev_id
 }