Index: openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/tcl/Attic/project-procs.tcl,v
diff -u -r1.11 -r1.12
--- openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	4 Jun 2004 00:04:29 -0000	1.11
+++ openacs-4/contrib/packages/project-manager/tcl/project-procs.tcl	4 Jun 2004 16:19:45 -0000	1.12
@@ -1451,8 +1451,11 @@
         case when status_type = 'c' then 0 else 1 end
         FROM
         pm_projectsx p,
+        cr_items i,
         pm_project_status s
         WHERE
+        i.item_id = p.item_id and
+        i.live_revision = p.revision_id and
         p.status_id = s.status_id and
         p.item_id = :project_item_id
     } -default "0"]
Index: openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/packages/project-manager/www/Attic/task-add-edit.tcl,v
diff -u -r1.35 -r1.36
--- openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	4 Jun 2004 00:04:31 -0000	1.35
+++ openacs-4/contrib/packages/project-manager/www/task-add-edit.tcl	4 Jun 2004 16:19:45 -0000	1.36
@@ -775,7 +775,7 @@
 
     # if the current project is closed, we need to append it to the
     # list of open projects
-    if {![pm::project::open_p -project_item_id "$project_item_id_arr($i)"]} {
+    if {![pm::project::open_p -project_item_id "$project_item_id_arr($i)"] && [exists_and_not_null project_item_id_arr($i)]} {
         set project_options_plus [db_list_of_lists get_closed_project "
             SELECT 
             case when o.name is null then p.title || ' -- Closed' else o.name || ' - ' || p.title || ' -- Closed' end as title,