Index: openacs-4/packages/calendar/www/cal-item-new.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/cal-item-new.tcl,v
diff -u -r1.24 -r1.25
--- openacs-4/packages/calendar/www/cal-item-new.tcl	26 Feb 2004 15:29:03 -0000	1.24
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	6 May 2004 15:21:41 -0000	1.25
@@ -154,7 +154,7 @@
     }
 } -new_request {
     # Seamlessly create a private calendar if the user doesn't have one
-    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
     }