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 \
Index: openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	9 Apr 2005 22:39:28 -0000	1.7
+++ openacs-4/packages/assessment/www/asm-admin/assessment-form.tcl	27 Apr 2005 00:16:01 -0000	1.8
@@ -133,6 +133,7 @@
 	set assessment_rev_id [as::assessment::new \
 				   -name $name \
 				   -title $title \
+                                   -creator_id $user_id \
 				   -description $description \
 				   -instructions $instructions \
 				   -run_mode $run_mode \