diff --git a/CHANGELOG.md b/CHANGELOG.md
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,14 +1,18 @@
 # Revision history for data-combinator-gen
 
-## 0.1.0.1 -- YYYY-mm-dd
+## 0.1.0.3 -- 2019-05-26
 
+* Actually corrected recursion on (,) - it's now right recursive
+
+## 0.1.0.2 -- 2019-05-26
+
 * Corrected recursion on (,) - it's now right recursive
 
-## 0.1.0.1 -- YYYY-mm-dd
+## 0.1.0.1 -- 2019-05-24
 
 * Added newtype support
 
-## 0.1.0.0 -- YYYY-mm-dd
+## 0.1.0.0 -- 2019-05-22
 
 * First version. Released on an unsuspecting world.
 
diff --git a/README.md b/README.md
--- a/README.md
+++ b/README.md
@@ -2,7 +2,7 @@
 
 Generate a special combinator from any data type.
 
-https://hackage.haskell.org/package/data-combinator-gen-0.1.0.0
+https://hackage.haskell.org/package/data-combinator-gen-0.1.0.1
 
 ## Description
 
diff --git a/data-combinator-gen.cabal b/data-combinator-gen.cabal
--- a/data-combinator-gen.cabal
+++ b/data-combinator-gen.cabal
@@ -13,7 +13,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.1.0.2
+version:             0.1.0.3
 
 -- A short (one-line) description of the package.
 synopsis:            Generate a special combinator from any data type.
diff --git a/src/Data/Combinators/TH.hs b/src/Data/Combinators/TH.hs
--- a/src/Data/Combinators/TH.hs
+++ b/src/Data/Combinators/TH.hs
@@ -73,7 +73,7 @@
 applyConVars :: [ExpQ] -> t -> [a] -> Int -> ExpQ
 applyConVars _ _ [] _             = conE (mkName "()")
 applyConVars varsC _ [_] n        = varsC !! n
-applyConVars varsC name' (_:fs) n = tupE ([varsC !! n] ++ [applyConVars varsC name' fs (n-1)])
+applyConVars varsC name' (_:fs) n = tupE ([(varsC !! n), applyConVars varsC name' fs (n-1)])
 
 ------