--- a/HistoryManager.st	Tue Mar 16 19:54:38 2004 +0100
+++ b/HistoryManager.st	Wed Mar 17 12:22:00 2004 +0100
@@ -770,7 +770,16 @@
     s replaceAll: $/ with:(Character space).
     coll := s asArrayOfSubstrings.
     day := (coll at: 1) asNumber.
-    month := (coll at: 2 ) asNumber.
+    month := Number readFrom:(coll at: 2 ) onError:nil.
+    month isNil ifTrue:[
+        month := Date indexOfMonth:(coll at:2) language:#en.
+        month == 0 ifTrue:[
+            month := Date indexOfMonth:(coll at:2).
+        ].
+        month == 0 ifTrue:[
+            self halt:'invalid month in history line'
+        ].
+    ].
     year := (coll at: 3 ) asNumber.
 
     (year between:0 and:99) ifTrue:[
@@ -786,7 +795,7 @@
 
     "Modified: / 23-08-1995 / 21:28:58 / robert"
     "Modified: / 16-09-1997 / 14:35:03 / stefan"
-    "Modified: / 16-03-2004 / 15:37:01 / cg"
+    "Modified: / 17-03-2004 / 12:38:23 / cg"
 !
 
 convertAStringToATime: aString
@@ -857,7 +866,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.52 2004-03-16 18:54:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.53 2004-03-17 11:22:00 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1491,7 +1500,7 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.52 2004-03-16 18:54:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.53 2004-03-17 11:22:00 cg Exp $'
 ! !
 
 HistoryManager initialize!