diff --git a/snaplet-acid-state.cabal b/snaplet-acid-state.cabal
--- a/snaplet-acid-state.cabal
+++ b/snaplet-acid-state.cabal
@@ -1,5 +1,5 @@
 name:           snaplet-acid-state
-version:        0.2.6.2
+version:        0.2.7
 synopsis:       acid-state snaplet for Snap Framework
 description:    This snaplet makes it easy to use acid-state in a Snap
                 application.
diff --git a/src/Snap/Snaplet/AcidState.hs b/src/Snap/Snaplet/AcidState.hs
--- a/src/Snap/Snaplet/AcidState.hs
+++ b/src/Snap/Snaplet/AcidState.hs
@@ -18,6 +18,7 @@
   , update
   , query
   , createCheckpoint
+  , createArchive
   , closeAcidState
   , initWorker
 
@@ -32,6 +33,7 @@
 import           Data.Acid hiding (update
                                   ,query
                                   ,createCheckpoint
+                                  ,createArchive
                                   ,closeAcidState
                                   )
 import           Data.Typeable
@@ -168,6 +170,19 @@
 createCheckpoint = do
     st <- getAcidState
     liftIO $ A.createCheckpoint st
+
+
+------------------------------------------------------------------------------
+-- | Wrapper for acid-state's createArchive function that works for
+-- arbitrary instances of HasAcid.
+createArchive :: (MonadIO (m b v),
+                  MonadSnaplet m,
+                  MonadState s (m b b),
+                  HasAcid s st)
+              => m b v ()
+createArchive = do
+    st <- getAcidState
+    liftIO $ A.createArchive st
 
 
 ------------------------------------------------------------------------------