Index: openacs-4/packages/project-manager/tcl/task-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/task-procs.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/project-manager/tcl/task-procs.tcl	21 Jun 2005 21:31:02 -0000	1.8
+++ openacs-4/packages/project-manager/tcl/task-procs.tcl	21 Jun 2005 23:26:13 -0000	1.9
@@ -730,6 +730,10 @@
     @error
 
 } {
+    if {[empty_string_p $task_id]} {
+	set task_id [db_nextval acs_object_id_seq]
+    }
+
     if {![exists_and_not_null status_id]} {
         set status_id [pm::task::default_status_open]
     }