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"]