Index: openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl,v
diff -u -N -r1.2 -r1.2.8.1
--- openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl	16 Aug 2006 17:52:14 -0000	1.2
+++ openacs-4/packages/calendar/tcl/calendar-sc-procs.tcl	3 Oct 2013 07:39:45 -0000	1.2.8.1
@@ -21,10 +21,10 @@
 
     # build a text content 
     foreach key {description pretty_day_of_week start_time end_time full_start_date start_date_ansi} {
-        if {[string eq $key start_time]} { 
+        if {$key eq "start_time"} { 
             append content "from "
         }
-        if {[string eq $key end_time]} { 
+        if {$key eq "end_time"} { 
             append content "to "
         }
         append content "$row($key) "