--- a/Date.st	Wed May 09 11:50:10 2018 +0200
+++ b/Date.st	Wed May 09 11:51:19 2018 +0200
@@ -1897,7 +1897,6 @@
     "Modified: 8.10.1996 / 19:25:39 / cg"
 ! !
 
-
 !Date class methodsFor:'private'!
 
 dayAbbrevsForLanguage:languageOrNilForDefault
@@ -2114,7 +2113,6 @@
     "
 ! !
 
-
 !Date methodsFor:'Compatibility-ANSI'!
 
 dayOfWeek
@@ -2681,7 +2679,7 @@
 
 dayInWeek
     "return the week-day of the receiver - 1 for monday, 7 for sunday.
-     WARNING: different from ANSIs dayOfWeek (which returns 1 for sunday, ... 7 for saturday).  
+     WARNING: different from (american) dayOfWeek (which returns 1 for sunday, ... 7 for saturday).  
      WARNING: does not care for pre-gregorian dates 
         (i.e. do not use this for dates before 1583)
     "
@@ -2689,8 +2687,8 @@
     |wday|
 
     wday := self asDaysFrom0 \\ 7 - 1.
-"/    wday := (1 "knowing, that 1st Jan 1901 was a tuesday"
-"/            + self asDays) \\ 7 + 1.
+    "/    wday := (1 "knowing, that 1st Jan 1901 was a tuesday"
+    "/            + self asDays) \\ 7 + 1.
     wday < 1 ifTrue:[
         wday := wday + 7
     ].
@@ -2708,6 +2706,9 @@
      (Date newDay:1 month:1 year:1901) dayInWeek   
      (Date newDay:31 month:12 year:1900) dayInWeek 
      (Date newDay:31 month:12 year:1899) dayInWeek 
+
+     Date today dayInWeek    
+     Date today dayOfWeek    
     "
 
     "Modified: / 1.2.1998 / 14:10:27 / cg"
@@ -3278,7 +3279,6 @@
 ! !
 
 
-
 !Date methodsFor:'obsolete'!
 
 asAbsoluteTime
@@ -3349,7 +3349,6 @@
     ^ self addDays:days
 ! !
 
-
 !Date methodsFor:'printing & storing'!
 
 addPrintBindingsTo:aDictionary