diff --git a/snaplet-hdbc.cabal b/snaplet-hdbc.cabal
--- a/snaplet-hdbc.cabal
+++ b/snaplet-hdbc.cabal
@@ -1,5 +1,5 @@
 name:           snaplet-hdbc
-version:        0.6.2
+version:        0.6.2.1
 synopsis:       HDBC snaplet for Snap Framework
 description:    This snaplet consists of two parts: an HDBC abstraction snaplet
                 and an HDBC authentication backend for Snap's authentication
diff --git a/src/Snap/Snaplet/Auth/Backends/Hdbc.hs b/src/Snap/Snaplet/Auth/Backends/Hdbc.hs
--- a/src/Snap/Snaplet/Auth/Backends/Hdbc.hs
+++ b/src/Snap/Snaplet/Auth/Backends/Hdbc.hs
@@ -251,13 +251,10 @@
 authQuery :: HdbcAuthManager -> (String, [SqlValue]) -> IO (Maybe AuthUser)
 authQuery (HdbcAuthManager pool tbl _) (qry, vals) = withResource pool $
   \conn -> do
-    res <- withTransaction conn $ \conn' -> do
-      stmt  <- prepare conn' qry
-      _     <- execute stmt vals
-      fetchRowMap stmt
-    case res of
-      Nothing  -> return Nothing
-      Just mp  -> return $ Just $ mkUser tbl mp
+    stmt  <- prepare conn qry
+    _     <- execute stmt vals
+    res <- fetchRowMap stmt
+    return $ (return . mkUser tbl) =<< res
 
 mkUser :: AuthTable -> Map String SqlValue -> AuthUser
 mkUser tbl mp =