diff --git a/relational-record-examples.cabal b/relational-record-examples.cabal
--- a/relational-record-examples.cabal
+++ b/relational-record-examples.cabal
@@ -1,5 +1,5 @@
 name:                relational-record-examples
-version:             0.3.1.0
+version:             0.3.1.1
 synopsis:            Examples of Haskell Relationa Record
 description:         Provides examples of Haskell Relational Record
 license:             BSD3
diff --git a/src/examples.hs b/src/examples.hs
--- a/src/examples.hs
+++ b/src/examples.hs
@@ -1222,7 +1222,6 @@
   records <- runRelation conn rel param
   mapM_ print records
   putStrLn ""
-  rollback conn
 
 runI :: (IConnection conn, ToSql SqlValue p)
      => conn -> p -> Insert p -> IO ()