Index: openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl,v
diff -u -r1.34.6.5 -r1.34.6.6
--- openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	6 Apr 2007 18:10:24 -0000	1.34.6.5
+++ openacs-4/packages/calendar-portlet/www/calendar-full-portlet.tcl	13 Apr 2007 17:19:12 -0000	1.34.6.6
@@ -117,8 +117,9 @@
 set current_date $date
 set date_format "YYYY-MM-DD HH24:MI"
 set return_url "[ns_conn url]?[ns_conn query]"
+
 set encoded_return_url [ns_urlencode $return_url]
-set add_item_url [export_vars -base "calendar/cal-item-new" {{date $current_date} {time_p 1}}]
+set add_item_url [export_vars -base "calendar/cal-item-new" {{date $current_date} {time_p 1} return_url}]
 
 set item_template "<a href=\${url_stub}cal-item-view?show_cal_nav=0&return_url=$encoded_return_url&action=edit&cal_item_id=\$item_id>\[ad_quotehtml \$item\]</a>"