diff --git a/embeddock.cabal b/embeddock.cabal
--- a/embeddock.cabal
+++ b/embeddock.cabal
@@ -2,14 +2,16 @@
 -- documentation, see http://haskell.org/cabal/users-guide/
 
 name:                embeddock
-version:             0.1.0.0
-synopsis:            In Haddock documentation embed the values from the same module
+version:             0.1.0.1
+synopsis:            Embed the values in scope in the haddock documentation of the module
 description:         embeddock is a Haskell source-code preprocessor. 
                      It allows you to embed computer-generated 
                      values in the documentation.
                      
 
 homepage:            https://github.com/nushio3/embeddock
+bug-reports:         https://github.com/nushio3/embeddock/issues
+
 license:             BSD3
 license-file:        LICENSE
 author:              Takayuki Muranushi
@@ -28,3 +30,8 @@
                      , her-lexer >= 0.1.1
                      , MissingH >= 1.2
                      , process >= 0.9
+
+
+Source-Repository head
+  Type:                 git
+  Location:             https://github.com/nushio3/embeddock
diff --git a/src/main.hs b/src/main.hs
--- a/src/main.hs
+++ b/src/main.hs
@@ -67,9 +67,9 @@
 
         seedEmbed :: Tok -> Tok
         seedEmbed (Com str) = Com $ foldl
-            (\str e -> replace (printf "%s(%s)" embedKey e)
-                               (printf "%s%s%s" openKey e closeKey)
-                               str)
+            (\str' e -> replace (printf "%s(%s)" embedKey e)
+                                (printf "%s%s%s" openKey e closeKey)
+                                str')
             str embeds
         seedEmbed x = x
 
@@ -103,8 +103,6 @@
 
 
   when (not isEmbedLoop) $ do
-    print parsedSrc
-    print embedKey
     writeFile runnerFn $ destContent ++ "\n" ++ quineMain
     (_, hOut, _, _) <- runInteractiveCommand $
       printf "runhaskell %s %s" (unwords runhaskellArgs) runnerFn