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 -N -r1.7 -r1.7.2.1
--- openacs-4/packages/assessment/tcl/as-file-procs.tcl	25 Jan 2005 12:46:57 -0000	1.7
+++ openacs-4/packages/assessment/tcl/as-file-procs.tcl	31 May 2005 23:13:00 -0000	1.7.2.1
@@ -26,7 +26,7 @@
     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]]
+    set content_rev_id [cr_import_content -title $file_name $folder_id $file_pathname $content_length $file_mimetype [as::item::generate_unique_name]]
 
     return $content_rev_id
 }