diff --git a/Text/Show/Html.hs b/Text/Show/Html.hs
--- a/Text/Show/Html.hs
+++ b/Text/Show/Html.hs
@@ -37,9 +37,12 @@
       Tuple vs    -> wideTuple                      (map loop vs)
 
       InfixCons v ms ->
-        table "infix"
-          [ tr $ map td $ loop v : [ h | (op,u) <- ms
-                                       , h      <- [ text op, loop u ] ] ]
+        table "infix tallRecord"
+          [ tr $ (th "label" 1 (text " ") :)
+               $ map td $ loop v : [ h | (op,u) <- ms
+                                   , h <- [ text op, loop u ]
+                                   ]
+          ]
 
       List []     -> span "list" (text "[]")
       List vs@(v : vs1) ->
diff --git a/pretty-show.cabal b/pretty-show.cabal
--- a/pretty-show.cabal
+++ b/pretty-show.cabal
@@ -1,5 +1,5 @@
 name:           pretty-show
-version:        1.6
+version:        1.6.1
 category:       Text
 
 synopsis:       Tools for working with derived `Show` instances and generic