diff --git a/fb.cabal b/fb.cabal
--- a/fb.cabal
+++ b/fb.cabal
@@ -1,5 +1,5 @@
 name:              fb
-version:           0.14.7
+version:           0.14.7.1
 license:           BSD3
 license-file:      LICENSE
 author:            Felipe Lessa
diff --git a/tests/Main.hs b/tests/Main.hs
--- a/tests/Main.hs
+++ b/tests/Main.hs
@@ -159,14 +159,15 @@
             Just t  -> compare t now &?= LT
           isJust (FB.dtScopes ret) &?= True
           FB.dtUserId ret &?= Just (FB.tuId testUser)
-{-
           case FB.dtAccessToken ret of
             Nothing -> fail "dtAccessToken is Nothing"
-            Just (FB.UserAccessToken uid dt exps) -> do
-              uid &?= FB.tuId testUser
-              dt  &?= testUserAccessTokenData
-              Just exps &?= FB.dtExpiresAt ret
--}
+            Just t -> do
+              let f :: FB.UserAccessToken -> FB.FacebookT FB.Auth (C.ResourceT IO) ()
+                  f (FB.UserAccessToken uid dt exps) = do
+                    uid &?= FB.tuId testUser
+                    dt  &?= testUserAccessTokenData
+                    Just exps &?= FB.dtExpiresAt ret
+              f t
 
   describe' "getObject" $ do
     it "is able to fetch Facebook's own page" $