--- a/Date.st	Wed Jan 23 10:08:55 2013 +0000
+++ b/Date.st	Mon Jan 28 21:53:19 2013 +0000
@@ -800,7 +800,6 @@
     "
 ! !
 
-
 !Date class methodsFor:'change & update'!
 
 update:something with:aParameter from:changedObject
@@ -1103,7 +1102,7 @@
     "Modified: / 08-10-2006 / 14:22:06 / cg"
 !
 
-indexOfMonth:aMonthString language:lang
+indexOfMonth:aMonthString language:languageOrNil
     "given the name of a month (either string or symbol),
      return the month-index (1 for jan; 12 for december).
      The given string may be a full or abbreviated name,
@@ -1114,8 +1113,8 @@
 
     |idx name langMonthNames langMonthAbbrevs|
 
-    langMonthNames := self monthNamesForLanguage:lang.
-    langMonthAbbrevs := self monthAbbrevsForLanguage:lang.
+    langMonthNames := self monthNamesForLanguage:languageOrNil.
+    langMonthAbbrevs := self monthAbbrevsForLanguage:languageOrNil.
 
     name := aMonthString asLowercase.
     idx := langMonthAbbrevs indexOf:name.
@@ -1384,7 +1383,6 @@
     ^ self leapYear:yearInteger
 ! !
 
-
 !Date class methodsFor:'private'!
 
 abbreviatedMonthNamesForLanguage:languageOrNilForDefault
@@ -1642,7 +1640,6 @@
     "
 ! !
 
-
 !Date methodsFor:'Compatibility-ANSI'!
 
 dayOfWeek
@@ -2728,7 +2725,6 @@
 ! !
 
 
-
 !Date methodsFor:'obsolete'!
 
 asAbsoluteTime
@@ -2799,7 +2795,6 @@
     ^ self addDays:days
 ! !
 
-
 !Date methodsFor:'printing & storing'!
 
 addPrintBindingsTo:aDictionary
@@ -3159,11 +3154,12 @@
 !Date class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.144 2013-01-02 12:35:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.145 2013-01-25 13:34:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.144 2013-01-02 12:35:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Date.st,v 1.145 2013-01-25 13:34:56 cg Exp $'
 ! !
 
+
 Date initialize!