Index: openacs-4/packages/contacts/lib/tasks-tasks-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/contacts/lib/tasks-tasks-portlet.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/contacts/lib/tasks-tasks-portlet.tcl	4 Mar 2006 22:58:41 -0000	1.6
+++ openacs-4/packages/contacts/lib/tasks-tasks-portlet.tcl	26 Apr 2006 06:20:18 -0000	1.7
@@ -6,3 +6,6 @@
 
 set portlet_layout [parameter::get -parameter "DefaultPortletLayout"]
 set package_id [ad_conn package_id]
+if {![exists_and_not_null party_id]} {
+    set party_id $object_id
+}
\ No newline at end of file