diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,5 +1,9 @@
 # Changelog for composite-cassava
 
+## v0.0.2.0
+
+* Fix `ToNamedRecord` instances.
+
 ## v0.0.1.0
 
-Add `FromNamedRecord` and `ToNamedRecord` instances for `Rec f xs`.
+* Add `FromNamedRecord` and `ToNamedRecord` instances for `Rec f xs`.
diff --git a/composite-cassava.cabal b/composite-cassava.cabal
--- a/composite-cassava.cabal
+++ b/composite-cassava.cabal
@@ -5,7 +5,7 @@
 -- see: https://github.com/sol/hpack
 
 name:           composite-cassava
-version:        0.0.1.0
+version:        0.0.2.0
 synopsis:       Csv parsing functionality for composite.
 description:    Csv parsing functionality for composite.
 category:       Composite, Csv
diff --git a/src/Composite/Csv.hs b/src/Composite/Csv.hs
--- a/src/Composite/Csv.hs
+++ b/src/Composite/Csv.hs
@@ -31,4 +31,4 @@
   toNamedRecord (x :^: xs) =
     let nL :: (s :-> x)
         nL = undefined
-     in HM.singleton (T.encodeUtf8 (valName nL)) (toField x)
+     in HM.singleton (T.encodeUtf8 (valName nL)) (toField x) <> toNamedRecord xs