Index: openacs-4/packages/calendar/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/www/index.tcl,v
diff -u -N -r1.14 -r1.15
--- openacs-4/packages/calendar/www/index.tcl	11 Dec 2003 21:39:59 -0000	1.14
+++ openacs-4/packages/calendar/www/index.tcl	10 Jan 2004 18:59:50 -0000	1.15
@@ -12,7 +12,7 @@
 set package_id [ad_conn package_id]
 set user_id [auth::require_login]
 
-if { ![calendar_have_private_p $user_id] } {
+if { ![calendar::have_private_p $user_id] } {
     calendar::new -owner_id $user_id -private_p "t" -calendar_name "Personal" -package_id $package_id
 }