diff --git a/Web/Informative.hs b/Web/Informative.hs
--- a/Web/Informative.hs
+++ b/Web/Informative.hs
@@ -298,7 +298,7 @@
   case (result,action) of
     (FormSuccess (SectionData k f lg ln (Textarea c)),"save") -> do
       lift $ runDB $ do
-        Right sid <- insertBy $ Wikisection c (source f lg ln) k
+        sid <- insert $ Wikisection c (source f lg ln) k
         Right pid <- insertBy $ Wikipage page seg user now
         prel <- get rid'
         case prel of
diff --git a/informative.cabal b/informative.cabal
--- a/informative.cabal
+++ b/informative.cabal
@@ -10,7 +10,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.10
+version:             0.1.0.11
 
 -- A short (one-line) description of the package.
 synopsis:            A yesod subsite serving a wiki.