--- a/RegressionTests__JITTest.st	Thu Nov 08 09:14:24 2001 +0100
+++ b/RegressionTests__JITTest.st	Fri Nov 16 00:14:24 2001 +0100
@@ -241,6 +241,14 @@
     "Created: 16.8.1996 / 17:39:44 / cg"
 ! !
 
+!JITTest methodsFor:'helpers'!
+
+withWaitCursorDo:aBlock
+    aBlock value
+
+    "Created: / 16.11.2001 / 00:06:20 / cg"
+! !
+
 !JITTest methodsFor:'public - test - arithmetic'!
 
 testAdd1
@@ -334,6 +342,49 @@
     "
 ! !
 
+!JITTest methodsFor:'public - test - misc'!
+
+testAndGreater1
+
+    |needUpdate mTime|
+
+    i3 := '.' asFilename.
+
+    i2 := i3 modificationTime.
+    mTime := i3 modificationTime.
+
+    needUpdate := mTime notNil and:[mTime > i2].
+
+    "
+     self new testAndGreater1      
+    "
+
+    "Created: / 16.11.2001 / 00:07:52 / cg"
+    "Modified: / 16.11.2001 / 00:09:23 / cg"
+!
+
+testAndGreater2
+
+    | needUpdate mTime|
+
+    i3 := '.' asFilename.
+
+    self withWaitCursorDo:[
+        i2 := i3 modificationTime.
+        mTime := i3 modificationTime.
+        "/ here, i2 refers to thisContext if the JITTER bug is in ...
+        "/ at least on win32
+        needUpdate := mTime notNil and:[mTime > i2].
+    ]
+
+    "
+     self new testAndGreater2      
+    "
+
+    "Created: / 16.11.2001 / 00:08:49 / cg"
+    "Modified: / 16.11.2001 / 00:09:29 / cg"
+! !
+
 !JITTest methodsFor:'test - arithmetic'!
 
 add1:arg