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 -N -r1.27 -r1.28
--- openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	9 Jun 2005 19:19:47 -0000	1.27
+++ openacs-4/packages/assessment/tcl/as-assessment-procs.tcl	23 Jan 2006 16:32:52 -0000	1.28
@@ -554,5 +554,6 @@
     }
 }
 
+    if { [empty_string_p $creator_id] } { set creator_id [ad_conn user_id]}