--- a/Method.st	Sat Mar 20 16:34:08 2004 +0100
+++ b/Method.st	Sat Mar 20 16:37:20 2004 +0100
@@ -2295,9 +2295,9 @@
     list := HistoryManager getAllHistoriesFrom:s.
     list size == 0 ifTrue:[^ nil].
     histLine := list last.
-    ^ AbsoluteTime 
-	fromDate:histLine date 
-	andTime:histLine time
+    ^ Timestamp 
+        fromDate:histLine date 
+        andTime:histLine time
 
     "
      (Method compiledMethodAt:#modificationTime) modificationTime
@@ -2913,7 +2913,7 @@
 !Method class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.270 2004-03-17 10:13:55 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.271 2004-03-20 15:36:46 stefan Exp $'
 ! !
 
 Method initialize!