Index: openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl,v
diff -u -r1.76 -r1.77
--- openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	13 Jan 2005 13:57:24 -0000	1.76
+++ openacs-4/packages/dotlrn-calendar/tcl/dotlrn-calendar-procs.tcl	2 Jun 2005 09:01:22 -0000	1.77
@@ -312,7 +312,7 @@
     @creation-date 2004-08-12
 } {
     # reverse the things done by add_user
-    set calendar_id [calendar_have_private_p -return_id 1 $user_id]
+    set calendar_id [calendar::have_private_p -return_id 1 -party_id $user_id]
     
     if {$calendar_id} {
         calendar::get -calendar_id $calendar_id -array calendar_info