--- a/ScreenLock.st	Tue Mar 16 19:54:03 2004 +0100
+++ b/ScreenLock.st	Sat Mar 20 20:20:31 2004 +0100
@@ -232,7 +232,7 @@
     |now|
 
     lockedViews isNil ifTrue:[
-        now := AbsoluteTime now.
+        now := Timestamp now.
         lastInactiveTime notNil ifTrue:[
             (lastInactiveTime addSeconds:lockAfterSeconds value) < now ifTrue:[
                 self lock
@@ -337,5 +337,5 @@
 !ScreenLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ScreenLock.st,v 1.6 2001-03-22 15:56:04 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ScreenLock.st,v 1.7 2004-03-20 19:20:31 stefan Exp $'
 ! !