--- a/HistoryManager.st	Tue Jan 23 19:20:00 2007 +0100
+++ b/HistoryManager.st	Tue Feb 20 10:40:22 2007 +0100
@@ -10,7 +10,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic3' }"
 
 Object subclass:#HistoryManager
@@ -812,8 +811,8 @@
 
     |h m s|
 
-    h := (aString copyFrom:1 to:2) asNumber.
-    m := (aString copyFrom:4 to:5) asNumber.
+    h := Number readFromString:(aString copyFrom:1 to:2) onError:[^ Time now].
+    m := Number readFromString:(aString copyFrom:4 to:5) onError:[^ Time now].
     aString size >= 8 ifTrue:[
         s := (aString copyFrom:7 to:8) asNumber.
     ] ifFalse:[
@@ -827,7 +826,7 @@
     "
 
     "Modified: / 15-08-1995 / 18:56:18 / robert"
-    "Modified: / 07-08-2006 / 09:52:07 / cg"
+    "Modified: / 19-02-2007 / 23:35:49 / cg"
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'documentation'!
@@ -879,7 +878,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.64 2006-09-18 19:47:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.65 2007-02-20 09:40:22 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1505,7 +1504,7 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.64 2006-09-18 19:47:20 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.65 2007-02-20 09:40:22 cg Exp $'
 ! !
 
 HistoryManager initialize!