Index: openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	11 Feb 2002 06:07:23 -0000	1.5
+++ openacs-4/packages/acs-datetime/tcl/acs-calendar-2-procs.tcl	11 Feb 2002 20:39:48 -0000	1.6
@@ -141,14 +141,14 @@
     
     # Go through events
     while {1} {
-        set index [ns_set find $calendar_details ""]
+        set index [ns_set find $calendar_details "X"]
         if {$index == -1} {
             break
         }
         
         append return_html "[ns_set value $calendar_details $index]<br>\n"
         
-        ns_set delete $calendar_details ""
+        ns_set delete $calendar_details $index
     }
 
     for {set hour $start_hour} {$hour <= $end_hour} {incr hour} {