diff --git a/persistable-record.cabal b/persistable-record.cabal
--- a/persistable-record.cabal
+++ b/persistable-record.cabal
@@ -1,5 +1,5 @@
 name:                persistable-record
-version:             0.6.0.3
+version:             0.6.0.4
 synopsis:            Binding between SQL database values and haskell records.
 description:         This package contiains types to represent table constraints and
                      interfaces to bind between SQL database values and Haskell records.
@@ -12,7 +12,8 @@
 category:            Database
 build-type:          Simple
 cabal-version:       >=1.10
-tested-with:           GHC == 8.2.1
+tested-with:           GHC == 8.4.1, GHC == 8.4.2, GHC == 8.4.3
+                     , GHC == 8.2.1, GHC == 8.2.2
                      , GHC == 8.0.1, GHC == 8.0.2
                      , GHC == 7.10.1, GHC == 7.10.2, GHC == 7.10.3
                      , GHC == 7.8.1, GHC == 7.8.2, GHC == 7.8.3, GHC == 7.8.4
diff --git a/src/Database/Record/TH.hs b/src/Database/Record/TH.hs
--- a/src/Database/Record/TH.hs
+++ b/src/Database/Record/TH.hs
@@ -51,7 +51,7 @@
 import Data.Array (Array)
 import Language.Haskell.TH.Name.CamelCase
   (ConName(conName), VarName(varName),
-   conCamelcaseName, varCamelcaseName, varNameWithPrefix,
+   conCamelcaseName, varCamelcaseName,
    toTypeCon, toDataCon, )
 import Language.Haskell.TH.Lib.Extra (integralE, simpleValD, reportWarning)
 import Language.Haskell.TH.Compat.Data (dataD')
@@ -92,15 +92,17 @@
   show = const "<nameConfig>"
 
 -- | Default implementation of 'NameConfig' type.
---   To change how the generated record type and its columns are named,
+--   To change how generated record types and their columns are named,
 --   use record update syntax:
 --
--- > defaultNameConfig
--- >   { recordTypeName = \schema table -> varCamelcaseName $ schema ++ "_" ++ table
--- >     ^ append the table name after the schema name. e.g. "schemaTable"
--- >   , columnName = \table column -> varCamelcaseName $ table ++ "_" ++ column
--- >     ^ append the column name after the table name. e.g. "tableColumn"
--- >   }
+-- @
+--   defaultNameConfig
+--     { recordTypeName = \\schema table -> 'varCamelcaseName' $ schema ++ "_" ++ table
+--     -- ^ append the table name after the schema name. e.g. "SchemaTable"
+--     , columnName = \\table column -> 'varCamelcaseName' $ table ++ "_" ++ column
+--     -- ^ append the column name after the table name. e.g. "tableColumn"
+--     }
+-- @
 defaultNameConfig :: NameConfig
 defaultNameConfig =
   NameConfig
@@ -118,7 +120,7 @@
 -- | Variable expression of record column offset array.
 columnOffsetsVarNameDefault :: Name    -- ^ Table type name
                             -> VarName -- ^ Result expression variable name
-columnOffsetsVarNameDefault =  (`varNameWithPrefix` "columnOffsets") . nameBase
+columnOffsetsVarNameDefault = varCamelcaseName . ("column_offsets_" ++) . nameBase
 
 -- | Template of 'HasColumnConstraint' instance.
 defineHasColumnConstraintInstance :: TypeQ   -- ^ Type which represent constraint type