diff --git a/ghcjs-dom-jsffi.cabal b/ghcjs-dom-jsffi.cabal
--- a/ghcjs-dom-jsffi.cabal
+++ b/ghcjs-dom-jsffi.cabal
@@ -1,5 +1,5 @@
 name: ghcjs-dom-jsffi
-version: 0.7.0.0
+version: 0.7.0.1
 cabal-version: >=1.24
 build-type: Simple
 license: MIT
diff --git a/src/GHCJS/DOM.hs b/src/GHCJS/DOM.hs
--- a/src/GHCJS/DOM.hs
+++ b/src/GHCJS/DOM.hs
@@ -14,6 +14,8 @@
 import Control.Applicative ((<$>))
 import Control.Exception (catch, bracket)
 
+import Data.Maybe (fromJust)
+
 import JavaScript.Web.AnimationFrame (waitForAnimationFrame)
 
 import GHCJS.DOM.Types
@@ -25,8 +27,12 @@
 
 currentWindow :: IO (Maybe Window)
 currentWindow = nullableToMaybe <$> ghcjs_currentWindow
+currentWindowUnchecked :: IO Window
+currentWindowUnchecked = fromJust <$> currentWindow
 currentDocument :: IO (Maybe Document)
 currentDocument = nullableToMaybe <$> ghcjs_currentDocument
+currentDocumentUnchecked :: IO Document
+currentDocumentUnchecked = fromJust <$> currentDocument
 
 syncPoint :: IO ()
 syncPoint = return ()