--- a/HistoryManager.st	Tue Jul 25 11:26:16 2006 +0200
+++ b/HistoryManager.st	Mon Aug 07 12:17:39 2006 +0200
@@ -814,8 +814,11 @@
 
     h := (aString copyFrom:1 to:2) asNumber.
     m := (aString copyFrom:4 to:5) asNumber.
-    s := (aString copyFrom:7 to:8) asNumber.
-
+    aString size >= 8 ifTrue:[
+        s := (aString copyFrom:7 to:8) asNumber.
+    ] ifFalse:[
+        s := 0.
+    ].
 
     ^Time hours:h minutes:m seconds:s.
 
@@ -823,7 +826,8 @@
      HistoryLine convertAStringToATime:'18:23:15' 
     "
 
-    "Modified: 15.08.1995 / 18:56:18 / robert"
+    "Modified: / 15-08-1995 / 18:56:18 / robert"
+    "Modified: / 07-08-2006 / 09:52:07 / cg"
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'documentation'!
@@ -875,7 +879,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.62 2006-07-13 15:42:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.63 2006-08-07 10:17:39 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1501,7 +1505,7 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.62 2006-07-13 15:42:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.63 2006-08-07 10:17:39 cg Exp $'
 ! !
 
 HistoryManager initialize!