diff --git a/fb.cabal b/fb.cabal
--- a/fb.cabal
+++ b/fb.cabal
@@ -1,5 +1,5 @@
 name:              fb
-version:           0.9.6
+version:           0.9.7
 license:           BSD3
 license-file:      LICENSE
 author:            Felipe Lessa
diff --git a/src/Facebook/Auth.hs b/src/Facebook/Auth.hs
--- a/src/Facebook/Auth.hs
+++ b/src/Facebook/Auth.hs
@@ -266,7 +266,7 @@
 extendUserAccessToken :: (MonadBaseControl IO m, C.MonadResource m) =>
                          UserAccessToken
                       -> FacebookT Auth m (Either FacebookException UserAccessToken)
-extendUserAccessToken token@(UserAccessToken _ data_ _)
+extendUserAccessToken token@(UserAccessToken uid data_ _)
     = do expired <- hasExpired token
          if expired then return (Left hasExpiredExc) else tryToExtend
     where
@@ -279,7 +279,9 @@
         case eresponse of
           Right response -> do
             now <- liftIO getCurrentTime
-            return (Right $ userAccessTokenParser now response)
+            return (Right $ case userAccessTokenParser now response of
+                              UserAccessToken _ data' expires' ->
+                                UserAccessToken uid data' expires')
           Left exc -> return (Left exc)
 
       hasExpiredExc =