diff --git a/clash-ghc.cabal b/clash-ghc.cabal
--- a/clash-ghc.cabal
+++ b/clash-ghc.cabal
@@ -1,5 +1,5 @@
 Name:                 clash-ghc
-Version:              0.2.1
+Version:              0.2.2
 Synopsis:             CAES Language for Synchronous Hardware
 Description:
   CλaSH (pronounced ‘clash’) is a functional hardware description language that
@@ -12,13 +12,16 @@
   This package provides:
   .
   * CλaSH Compiler binary using GHC/Haskell as a frontend
+  .
+  .
+  Prelude library: http://hackage.haskell.org/package/clash-prelude
 Homepage:             http://christiaanb.github.io/clash2
 bug-reports:          http://github.com/christiaanb/clash2/issues
 License:              OtherLicense
 License-file:         LICENSE
 Author:               Christiaan Baaij
 Maintainer:           Christiaan Baaij <christiaan.baaij@gmail.com>
-Copyright:            Copyright (c) 2012-2014 University of Twente
+Copyright:            Copyright © 2012-2014 University of Twente
 Category:             Hardware
 Build-type:           Simple
 
diff --git a/primitives/clash.sized.signed.json b/primitives/clash.sized.signed.json
--- a/primitives/clash.sized.signed.json
+++ b/primitives/clash.sized.signed.json
@@ -123,7 +123,7 @@
     { "name"      : "CLaSH.Sized.Signed.bitS"
     , "templateD" :
 "~SYM[0]_bitS : block
-  signal ~SYM[1] : ~TYP[1];
+  signal ~SYM[1] : ~TYP[1] := ~DEFAULT[1];
 begin
   ~SYM[1] <= ~ARG[1];
   process(~SYM[1])
diff --git a/primitives/clash.sized.unsigned.json b/primitives/clash.sized.unsigned.json
--- a/primitives/clash.sized.unsigned.json
+++ b/primitives/clash.sized.unsigned.json
@@ -92,7 +92,7 @@
     { "name"      : "CLaSH.Sized.Unsigned.bitU"
     , "templateD"  :
 "~SYM[0]_bitU : block
-  signal ~SYM[1] : ~TYP[1];
+  signal ~SYM[1] : ~TYP[1] := ~DEFAULT[1];
 begin
   ~SYM[1] <= ~ARG[1];
   process(~SYM[1])
diff --git a/src-ghc/CLaSH/GHC/GHC2Core.hs b/src-ghc/CLaSH/GHC/GHC2Core.hs
--- a/src-ghc/CLaSH/GHC/GHC2Core.hs
+++ b/src-ghc/CLaSH/GHC/GHC2Core.hs
@@ -305,7 +305,7 @@
     mkDc dcTy repTys
   where
     mkDc dcTy repTys = do
-      nm   <- coreToName dataConName getUnique nameString dc
+      nm   <- coreToName dataConName getUnique qualfiedNameString dc
       uTvs <- mapM coreToVar (dataConUnivTyVars dc)
       eTvs <- mapM coreToVar (dataConExTyVars dc)
       return $ C.MkData
@@ -370,10 +370,6 @@
 coreToName toName toUnique toString v = do
   ns <- toString (toName v)
   return (Unbound.makeName ns (toInteger . getKey . toUnique $ v))
-
-nameString :: Name
-           -> State GHC2CoreState String
-nameString n = makeCached n nameMap (return (occNameString $ nameOccName n))
 
 qualfiedNameString :: Name
                    -> State GHC2CoreState String