diff --git a/ghc-vis.cabal b/ghc-vis.cabal
--- a/ghc-vis.cabal
+++ b/ghc-vis.cabal
@@ -1,5 +1,5 @@
 name:               ghc-vis
-version:            0.3.1.1
+version:            0.3.2
 license:            BSD3
 license-file:       LICENSE
 category:           GHC, Debug, Development
@@ -18,7 +18,7 @@
                     To use this package add the accompanying @ghci@ file to
                     your @.ghci@ like this:
                     .
-                    > echo ":script $HOME/.cabal/share/ghc-vis-0.3.1.1/ghci" >> ~/.ghci
+                    > echo ":script $HOME/.cabal/share/ghc-vis-0.3.2/ghci" >> ~/.ghci
                     .
                     Now you can run ghci and experiment with @ghc-vis@. Start
                     the visualization:
@@ -95,7 +95,7 @@
                  transformers,
                  gtk == 0.12.*,
                  cairo == 0.12.*,
-                 ghc-heap-view >= 0.3
+                 ghc-heap-view >= 0.3.0.2
   Hs-source-dirs: src/
   Ghc-options: -Wall -fno-warn-unused-do-bind
 
diff --git a/src/GHC/Vis/Internal.hs b/src/GHC/Vis/Internal.hs
--- a/src/GHC/Vis/Internal.hs
+++ b/src/GHC/Vis/Internal.hs
@@ -237,7 +237,7 @@
                  , ("GHC.Word", "W16#")
                  , ("GHC.Word", "W32#")
                  , ("GHC.Word", "W64#")
-                 ] -> show dataArg
+                 ] -> name ++ " " ++ show dataArg
 
     k | k `elem` [ ("GHC.Integer.Type", "S#")
                  , ("GHC.Types", "I#")
@@ -245,7 +245,7 @@
                  , ("GHC.Int", "I16#")
                  , ("GHC.Int", "I32#")
                  , ("GHC.Int", "I64#")
-                 ] -> show $ (fromIntegral :: Word -> Int) dataArg
+                 ] -> name ++ " " ++ (show $ (fromIntegral :: Word -> Int) dataArg)
 
     ("GHC.Types", "C#") -> show . chr $ fromIntegral dataArg
 
@@ -312,8 +312,8 @@
 parseInternal _ (OtherClosure (StgInfoTable _ _ cTipe _) _ _)
   = return [Unnamed $ show cTipe]
 
---parseInternal _ (UnsupportedClosure (StgInfoTable _ _ cTipe _))
---  = return [Unnamed $ show cTipe]
+parseInternal _ (UnsupportedClosure (StgInfoTable _ _ cTipe _))
+  = return [Unnamed $ show cTipe]
 
 -- Reversed order of ptrs
 parseInternal b (ThunkClosure _ bPtrs args)
@@ -428,7 +428,7 @@
                  , ("GHC.Word", "W16#")
                  , ("GHC.Word", "W32#")
                  , ("GHC.Word", "W64#")
-                 ] -> show dataArg
+                 ] -> name ++ " " ++ show dataArg
 
     k | k `elem` [ ("GHC.Integer.Type", "S#")
                  , ("GHC.Types", "I#")
@@ -436,7 +436,7 @@
                  , ("GHC.Int", "I16#")
                  , ("GHC.Int", "I32#")
                  , ("GHC.Int", "I64#")
-                 ] -> show $ (fromIntegral :: Word -> Int) dataArg
+                 ] -> name ++ " " ++ (show $ (fromIntegral :: Word -> Int) dataArg)
 
     ("GHC.Types", "C#") -> show . chr $ fromIntegral dataArg
 
@@ -510,7 +510,7 @@
 showClosure (OtherClosure (StgInfoTable _ _ cTipe _) _ _)
   = show cTipe
 
---showClosure (UnsupportedClosure (StgInfoTable _ _ cTipe _))
---  = show cTipe
+showClosure (UnsupportedClosure (StgInfoTable _ _ cTipe _))
+  = show cTipe
 
 --showClosure c = "Missing pattern for " ++ show c