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.6 -r1.7
--- openacs-4/packages/assessment/tcl/as-file-procs.tcl	25 Jan 2005 12:40:01 -0000	1.6
+++ openacs-4/packages/assessment/tcl/as-file-procs.tcl	25 Jan 2005 12:46:57 -0000	1.7
@@ -23,7 +23,7 @@
         set file_name $file_pathname
     }
     # TODO make the CR name be a SHA1 of the file to prevent too much files repeated
-    set filename [template::util::file::get_property filename $file_pathname]
+    set filename [file tail [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 $file_name $folder_id $file_pathname $content_length $file_mimetype [exec uuidgen]]