Index: openacs-4/packages/lors-central/tcl/lors-central-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/lors-central/tcl/lors-central-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/lors-central/tcl/lors-central-procs.tcl	31 May 2005 22:57:22 -0000	1.2
+++ openacs-4/packages/lors-central/tcl/lors-central-procs.tcl	13 Apr 2007 23:26:25 -0000	1.3
@@ -803,13 +803,14 @@
     -item_id
     -man_id
     {-user_id ""}
+    {-description ""}
 } {
-
+    
 } {
-
+    
     set new_file_id [content::revision::new -item_id $item_id -title $title -creation_user $user_id \
-			 -mime_type $mime_type -is_live "f"]
-
+			 -mime_type $mime_type -is_live "f" -description $description]
+    
     # Now we store the content in the CR
     if {[exists_and_not_null tmp_filename]} {
 	set cr_file [cr_create_content_file $item_id $new_file_id $tmp_filename]