--- a/Delay.st	Mon Aug 02 13:36:55 2010 +0200
+++ b/Delay.st	Mon Aug 02 16:02:50 2010 +0200
@@ -228,6 +228,15 @@
      This is a combined instance creation & wait."
 
     ^ (self forSeconds:aNumber) wait
+!
+
+waitUntil:aTimestamp
+    "wait until a given time is reached.
+     This is a combined instance creation & wait."
+
+    ^ (self until:aTimestamp) wait
+
+    "Created: / 29-07-2010 / 13:51:41 / cg"
 ! !
 
 !Delay methodsFor:'accessing'!
@@ -334,5 +343,9 @@
 !Delay class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.42 2009-09-07 10:22:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.43 2010-08-02 14:02:50 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/Delay.st,v 1.43 2010-08-02 14:02:50 cg Exp $'
 ! !