diff --git a/webkit-sodium/src/Engine.hs b/webkit-sodium/src/Engine.hs
index d1ab173..da873db 100644
--- a/webkit-sodium/src/Engine.hs
+++ b/webkit-sodium/src/Engine.hs
@@ -94,7 +94,7 @@ elementPageXY doc elt = do
                 ox <- elementGetOffsetLeft elt
                 oy <- elementGetOffsetTop elt
                 Just parent <- elementGetOffsetParent elt
-                traverse body parent (x + ox, y + oy)
+                traverse body parent (x + truncate ox, y + truncate oy)
 
 -- The game logic expects alternating down-up-down-up, but the browser can produce
 -- bad sequences like down-up-down-down-up. So we sanitize the input.