Index: openacs-4/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/project-manager/tcl/project-procs.tcl,v
diff -u -r1.43 -r1.44
--- openacs-4/packages/project-manager/tcl/project-procs.tcl	31 Jan 2007 15:34:14 -0000	1.43
+++ openacs-4/packages/project-manager/tcl/project-procs.tcl	19 Feb 2007 15:56:54 -0000	1.44
@@ -1750,6 +1750,11 @@
         project_id in (select live_revision from cr_items where item_id = :project_item_id)
     }
 
+    # Close all tasks
+    foreach task_id [db_list select_tasks {}] {
+	pm::task::close -task_item_id $task_id
+    }
+
     if {!$no_callback_p} {
 	callback pm::project_close -package_id [ad_conn package_id] -project_id $project_item_id
     }