diff --git a/HGraphStorage.cabal b/HGraphStorage.cabal
--- a/HGraphStorage.cabal
+++ b/HGraphStorage.cabal
@@ -1,5 +1,5 @@
 name:           HGraphStorage
-version:        0.0.1
+version:        0.0.2
 cabal-version:  >= 1.8
 build-type:     Simple
 author:         JP Moresmau <jp@moresmau.fr>
@@ -31,7 +31,7 @@
                    lifted-base,
                    transformers-base,
                    transformers,
-                   monad-control,
+                   monad-control >= 1.0,
                    monad-logger,
                    resourcet
   ghc-options:      -Wall
@@ -88,7 +88,7 @@
                    lifted-base,
                    transformers-base,
                    transformers,
-                   monad-control,
+                   monad-control >= 1.0,
                    monad-logger,
                    resourcet
   other-modules:   
diff --git a/src/Database/Graph/HGraphStorage/API.hs b/src/Database/Graph/HGraphStorage/API.hs
--- a/src/Database/Graph/HGraphStorage/API.hs
+++ b/src/Database/Graph/HGraphStorage/API.hs
@@ -86,14 +86,14 @@
     liftBase = lift . liftBase
 
 instance MonadTransControl GraphStorageT where
-    newtype StT GraphStorageT a = GsStT { unGsStT :: StT (StateT GsData) a }
-    liftWith f = Gs $ liftWith (\run -> f (liftM GsStT . run . unIs))
-    restoreT = Gs . restoreT . liftM unGsStT
+    type StT GraphStorageT a = StT (StateT GsData) a
+    liftWith f = Gs $ liftWith (\run -> f (run . unIs))
+    restoreT = Gs . restoreT
 
 instance MonadBaseControl b m => MonadBaseControl b (GraphStorageT m) where
-    newtype StM (GraphStorageT m) a = StMT {unStMT :: ComposeSt GraphStorageT m a}
-    liftBaseWith = defaultLiftBaseWith StMT
-    restoreM = defaultRestoreM unStMT
+    type StM (GraphStorageT m) a = ComposeSt GraphStorageT m a
+    liftBaseWith = defaultLiftBaseWith
+    restoreM = defaultRestoreM
 
 instance (MonadLogger m) => MonadLogger (GraphStorageT m) where
    monadLoggerLog loc src lvl msg=lift $ monadLoggerLog loc src lvl msg