diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 <!-- -*- Markdown -*- -->
 
+## 0.6.0.2
+
+- bugfix: pass correct table name to macro for field label defintion.
+
 ## 0.6.0.1
 
 - fix changelog.
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.1
+version:             0.6.0.2
 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.
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
@@ -80,9 +80,11 @@
 data NameConfig =
   NameConfig
   { recordTypeName  ::  String -> String -> ConName
-    -- ^ Make record type symbol name from schema name and table name in SQL
+    -- ^ Make record type name generated from the table's definition.
+    --   The first argument is the schema name of the table, and the second argument is the table name.
   , columnName      ::  String -> String -> VarName
-    -- ^ Make column variable symbol name from table name and column name in SQL
+    -- ^ Make each field label of the record type generated from the table's definition.
+    --   The first argument is the table name, and the second argument is the column name.
   }
 
 -- | Dummy show instance. Handy to define show instance recursively.
@@ -90,7 +92,15 @@
   show = const "<nameConfig>"
 
 -- | Default implementation of 'NameConfig' type.
---   To customize this, use record update syntax.
+--   To change how the generated record type and its columns are named,
+--   use record update syntax:
+--
+-- > defaultNameConfig
+-- >   { recordTypeName = \schema table -> varNameWithPrefix table schema
+-- >     ^ append the table name after the schema name. e.g. "schemaTable"
+-- >   , columnName = \table column -> varNameWithPrefix column table
+-- >     ^ append the column name after the table name. e.g. "tableColumn"
+-- >   }
 defaultNameConfig :: NameConfig
 defaultNameConfig =
   NameConfig
@@ -188,7 +198,7 @@
 defineRecordTypeWithConfig config schema table columns =
   defineRecordType
   (recordTypeName config schema table)
-  [ (columnName config schema n, t) | (n, t) <- columns ]
+  [ (columnName config table n, t) | (n, t) <- columns ]
 
 -- | Templates for single column value type.
 deriveNotNullType :: TypeQ -> Q [Dec]