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.37 -r1.38
--- openacs-4/packages/calendar/www/cal-item-new.tcl	2 Sep 2008 21:02:27 -0000	1.37
+++ openacs-4/packages/calendar/www/cal-item-new.tcl	8 Sep 2008 20:13:37 -0000	1.38
@@ -165,7 +165,11 @@
 } -new_request {
     # Seamlessly create a private calendar if the user doesn't have one
     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
+	set calendar_id [calendar::new \
+                            -owner_id $user_id \
+                            -private_p "t" \
+                            -calendar_name "Personal" \
+                            -package_id $package_id]
     } 
     
     set date [calendar::from_sql_datetime -sql_date $ansi_date  -format "YYY-MM-DD"]