Index: openacs-4/packages/assessment/tcl/as-assessment-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/tcl/as-assessment-procs.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	14 Apr 2005 22:05:50 -0000	1.24
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	27 Apr 2005 00:16:41 -0000	1.25
@@ -47,7 +47,12 @@
 	if {[empty_string_p $name]} {
 	    set name "ASS_$assessment_item_id"
 	}
-	set assessment_item_id [content::item::new -item_id $assessment_item_id -parent_id $folder_id -content_type {as_assessments} -name $name]
+	set assessment_item_id [content::item::new \
+                                    -item_id $assessment_item_id \
+                                    -parent_id $folder_id \
+                                    -creation_user $creator_id \
+                                    -content_type {as_assessments} \
+                                    -name $name]
 
 	set as_assessment_id [content::revision::new \
 				  -item_id $assessment_item_id \