diff --git a/ChangeLog b/ChangeLog
index 61392d4b8..46afda2f3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2006-11-02  Wolfgang Sourdeau  <wsourdeau@inverse.ca>
 
+	* UI/SOGoUI/SOGoAptFormatter.m: added code to handle the display
+	of events in the day boxes of the calendar's monthly view.
+
 	* SoObjects/Appointments/SOGoTaskObject.m ([SOGoTaskObject
 	-davContentType]): declare "text/calendar".
 
diff --git a/UI/SOGoUI/SOGoAptFormatter.m b/UI/SOGoUI/SOGoAptFormatter.m
index ed01905af..0568cc2e8 100644
--- a/UI/SOGoUI/SOGoAptFormatter.m
+++ b/UI/SOGoUI/SOGoAptFormatter.m
@@ -88,6 +88,10 @@
   self->formatAction = @selector(shortTitleForApt::);
 }
 
+- (void)setShortMonthTitleOnly {
+  self->formatAction = @selector(shortMonthTitleForApt::);
+}
+
 - (void)setPrivateSuppressAll {
   self->formatAction = @selector(suppressApt::);
 }
@@ -227,6 +231,24 @@
   return title;
 }
 
+- (NSString *)shortMonthTitleForApt:(id)_apt :(NSCalendarDate *)_refDate {
+  NSMutableString *title;
+  NSCalendarDate *startDate;
+  NSTimeZone *dtz;
+
+  title = [NSMutableString new];
+  [title autorelease];
+
+  dtz        = [self displayTZ];
+  startDate  = [_apt valueForKey: @"startDate"];
+  [startDate setTimeZone:dtz];
+  [self appendTimeInfoForDate: startDate usingReferenceDate: nil
+        toBuffer: title];
+  [title appendFormat: @" %@", [self titleForApt:_apt :_refDate]];
+  
+  return title;
+}
+
 - (NSString *)singleLineFullDetailsForApt:(id)_apt :(NSCalendarDate *)_refDate {
   NSMutableString *aptDescr;
   NSString        *s;