Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -r1.16 -r1.17
--- openacs-4/packages/calendar/www/index.tcl	25 Feb 2004 13:07:08 -0000	1.16
+++ openacs-4/packages/calendar/www/index.tcl	6 May 2004 15:21:41 -0000	1.17
@@ -12,7 +12,7 @@
 set package_id [ad_conn package_id]
 set user_id [ad_conn user_id]
 
-if { ![calendar::have_private_p $user_id] } {
+if { ![calendar::have_private_p -party_id $user_id] } {
     calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
 }