--- a/Date.st	Wed Nov 26 10:43:00 2014 +0100
+++ b/Date.st	Wed Nov 26 10:48:07 2014 +0100
@@ -738,7 +738,8 @@
 !
 
 utcToday
-    "return a date, representing today.
+    "return a date, representing today in UTC.
+     That is, the current date in London without any daylight saving adjustments.
      See also: Time now / Timestamp now."
 
     ^ self new fromUtcOSTime:(OperatingSystem getOSTime)
@@ -3450,11 +3451,11 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.160 2014-11-19 00:28:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.161 2014-11-26 09:48:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.160 2014-11-19 00:28:43 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.161 2014-11-26 09:48:07 cg Exp $'
 ! !