--- a/HistoryManager.st	Tue Mar 02 00:11:59 1999 +0100
+++ b/HistoryManager.st	Sat Mar 06 03:25:18 1999 +0100
@@ -766,7 +766,7 @@
     month := (coll at: 2 ) asNumber.
     year := (coll at: 3 ) asNumber.
 
-    ^ Date newDay: day month: month year: year.
+    ^ Date newDay:day month:month year:year.
 
     "
      HistoryLine convertAStringToADate:'18.10.1995'
@@ -781,14 +781,14 @@
 convertAStringToATime: aString
    "kludge while not having the Time and Date format spec Class"
 
-    | h m s|
+    |h m s|
 
-    h := (aString copyFrom: 1 to: 2) asNumber.
-    m := (aString copyFrom: 4 to: 5) asNumber.
-    s := (aString copyFrom: 7 to: 8) asNumber.
+    h := (aString copyFrom:1 to:2) asNumber.
+    m := (aString copyFrom:4 to:5) asNumber.
+    s := (aString copyFrom:7 to:8) asNumber.
 
 
-    ^Time hour:h  minutes: m seconds: s.        
+    ^Time hours:h minutes:m seconds:s.
 
     "
      HistoryLine convertAStringToATime:'18:23:15' 
@@ -846,7 +846,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.43 1998-11-09 20:38:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.44 1999-03-06 02:25:18 cg Exp $'
 ! !
 
 !HistoryManager::HistoryLine class methodsFor:'filtering'!
@@ -1478,6 +1478,6 @@
 !HistoryManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.43 1998-11-09 20:38:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/HistoryManager.st,v 1.44 1999-03-06 02:25:18 cg Exp $'
 ! !
 HistoryManager initialize!