diff --git a/api-tools.cabal b/api-tools.cabal
--- a/api-tools.cabal
+++ b/api-tools.cabal
@@ -1,5 +1,5 @@
 Name:                api-tools
-Version:             0.5.1
+Version:             0.5.2
 Synopsis:            DSL for generating API boilerplate and docs
 Description:         api-tools provides a compact DSL for describing an API.
                      It uses Template Haskell to generate the
@@ -25,7 +25,7 @@
 Source-Repository this
   Type:              git
   Location:          git://github.com/iconnect/api-tools.git
-  Tag:               0.5.1
+  Tag:               0.5.2
 
 Library
   Hs-Source-Dirs:    src
diff --git a/changelog b/changelog
--- a/changelog
+++ b/changelog
@@ -1,5 +1,9 @@
 -*-change-log-*-
 
+0.5.2 Adam Gundry <adam@well-typed.com> December 2014
+	* Fix bug in DeepSeq tool: records not reduced to normal form
+	* Add instance for NFData Binary
+
 0.5.1 Adam Gundry <adam@well-typed.com> November 2014
 	* Tool to generate NFData instances (added dependency on deepseq)
 	* Expose internal module with TH utility functions
diff --git a/src/Data/API/Tools/DeepSeq.hs b/src/Data/API/Tools/DeepSeq.hs
--- a/src/Data/API/Tools/DeepSeq.hs
+++ b/src/Data/API/Tools/DeepSeq.hs
@@ -32,7 +32,7 @@
   where
     bdy an sr x = lamE [varP x] $ foldr f [e|()|] (srFields sr)
       where
-        f (fn,_) r = [e| $(nodeFieldE an fn) $(varE x) `seq` $r |]
+        f (fn,_) r = [e| rnf ($(nodeFieldE an fn) $(varE x)) `seq` $r |]
 
 gen_su :: Tool (APINode, SpecUnion)
 gen_su = mkTool $ \ ts (an, su) -> do
diff --git a/src/Data/API/Types.hs b/src/Data/API/Types.hs
--- a/src/Data/API/Types.hs
+++ b/src/Data/API/Types.hs
@@ -36,6 +36,7 @@
 
 import           Data.API.Utils
 
+import           Control.DeepSeq
 import qualified Data.CaseInsensitive           as CI
 import           Data.String
 import           Data.Time
@@ -284,7 +285,7 @@
 -- | Binary data is represented in JSON format as a base64-encoded
 -- string
 newtype Binary = Binary { _Binary :: B.ByteString }
-    deriving (Show,Eq,Ord)
+    deriving (Show,Eq,Ord,NFData)
 
 instance ToJSON Binary where
     toJSON = String . T.decodeLatin1 . B64.encode . _Binary