--- a/Filename.st	Mon Jul 08 14:10:17 1996 +0200
+++ b/Filename.st	Tue Jul 09 10:20:50 1996 +0200
@@ -1070,6 +1070,19 @@
 
 !Filename methodsFor:'file queries'!
 
+accessTime
+    "return a timeStamp containing the files last access time."
+
+    ^ self dates at:#accessed
+
+    "
+     Filename currentDirectory accessTime 
+    "
+
+    "Created: 9.7.1996 / 10:19:15 / cg"
+    "Modified: 9.7.1996 / 10:19:27 / cg"
+!
+
 dates
     "return the files modification and access times as an object (currently a dictionary)
      that responds to the at: message with arguments 
@@ -1207,6 +1220,18 @@
      'source/Point.st' asFilename linkInfo 
      '../../libbasic/Point.st' asFilename linkInfo 
     "
+!
+
+modificationTime
+    "return a timeStamp containing the files modification time."
+
+    ^ self dates at:#modified
+
+    "
+     Filename currentDirectory modificationTime
+    "
+
+    "Created: 9.7.1996 / 10:18:59 / cg"
 ! !
 
 !Filename methodsFor:'file utilities'!
@@ -1937,5 +1962,5 @@
 !Filename  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.62 1996-07-03 12:27:03 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.63 1996-07-09 08:20:50 cg Exp $'
 ! !