diff --git a/displays.fs b/displays.fs
index f486d36ce17dcd2127194338951f1e08a99ad4f5..500dd4cddd350c2f57405a074174e4593655ec86 100644
--- a/displays.fs
+++ b/displays.fs
@@ -506,8 +506,8 @@ how:    : dispose  clicks HandleOff
 \ Display                                              05aug99py
 
         : in-time? ( time flag -- flag )
-          lasttime @ rot - swap lastclick @ =
-          IF  sameclick  ELSE  twoclicks  THEN  < ;
+          lasttime @ rot - negate swap lastclick @ =
+          IF  sameclick  ELSE  twoclicks  THEN < ;
         : samepos? ( event -- flag )  flags #pending bit@
           IF    XButtonEvent x @+ @  click^ w@+ w@ p-
                 dup * swap dup * + samepos <
@@ -752,7 +752,7 @@ private:
 
 \ Display                                              19jan00py
         : in-time? ( time flag -- flag )
-          lasttime @ rot swap - lastclick @ =
+          lasttime @ rot - negate swap lastclick @ =
           IF  sameclick  ELSE  twoclicks  THEN  < ;
         : samepos? ( event -- flag )  flags #pending bit@
           IF    MSG lparam lohi@ ( swap ) click^ w@+ w@ p-