diff --git a/Text/Tabular/Html.hs b/Text/Tabular/Html.hs
--- a/Text/Tabular/Html.hs
+++ b/Text/Tabular/Html.hs
@@ -14,7 +14,7 @@
   --
   body = concatHtml $ squish applyHAttr tr
        $ fmap fst
-       $ zipHeader noHtml rows ch
+       $ zipHeader noHtml rows rh
   rows = zipWith (\h cs -> myTh h +++ doRow cs)
            rhStrings cells
   doRow cs = concatHtml $ squish applyVAttr myTd $
diff --git a/tabular.cabal b/tabular.cabal
--- a/tabular.cabal
+++ b/tabular.cabal
@@ -1,5 +1,5 @@
 name:                tabular
-version:             0.1
+version:             0.1.0.1
 synopsis:            Two-dimensional data tables with rendering functions
 description:         Tabular provides a Haskell representation of two-dimensional
                      data tables, the kind that you might find in a spreadsheet or