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.26.2.6 -r1.26.2.7
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	21 Nov 2005 15:10:25 -0000	1.26.2.6
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	23 Jan 2006 16:32:51 -0000	1.26.2.7
@@ -43,6 +43,7 @@
     if { ![exists_and_not_null package_id] } { set package_id [ad_conn package_id] }
     set folder_id [as::assessment::folder_id -package_id $package_id]
 
+    if { [empty_string_p $creator_id] } { set creator_id [ad_conn user_id]}
 
     # Insert as_assessment in the CR (and as_assessments table) getting the revision_id (as_assessment_id)
     db_transaction {