Index: openacs-4/packages/tasks/tcl/tasks-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/tcl/tasks-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/tasks/tcl/tasks-procs.tcl	26 Oct 2005 18:54:29 -0000	1.6
+++ openacs-4/packages/tasks/tcl/tasks-procs.tcl	7 Nov 2005 17:44:04 -0000	1.7
@@ -142,6 +142,10 @@
 	set context_id $package_id
     }
 
+    if { [empty_string_p $assignee_id] } {
+	set assignee_id [ad_conn user_id]
+    }
+
     oacs_util::vars_to_ns_set -ns_set $extra_vars -var_list {task_id process_instance_id process_task_id party_id object_id title description mime_type comment status_id priority start_date due_date package_id context_id assignee_id}
 
     set task_id [package_instantiate_object -extra_vars $extra_vars tasks_task]
@@ -201,6 +205,11 @@
     if { [empty_string_p $package_id] } {
         set package_id [ad_conn package_id]
     }
+
+    if { [empty_string_p $assignee_id] } {
+	set assignee_id [ad_conn user_id]
+    }
+
     set extra_vars [ns_set create]
     set context_id $package_id