diff --git a/ChangeLog.md b/ChangeLog.md
--- a/ChangeLog.md
+++ b/ChangeLog.md
@@ -1,9 +1,3 @@
-3.3.1 / 2017-12-24
-==================
-
- * Replace usage of String with Text.
- * Fix the name collision bug that causes a Hackage build failure.
-
 TODOs
 ==================
   * Support struct type.
@@ -16,6 +10,19 @@
   * Fix the bug in handling 'delete'.
   * Show all contracts and functions in a single dot file.
 
+3.3.4 / 2017-12-25
+==================
+ * Fix newly failed test cases due to the String->Text cleanup.
+
+3.3.3 / 2017-12-24
+==================
+ * Fix a collision with Protolude.replace
+
+3.3.1 / 2017-12-24
+==================
+
+ * Replace usage of String with Text.
+ * Fix the name collision bug that causes a Hackage build failure.
 
 3.3.0 / 2017-12-21
 ==================
diff --git a/ethereum-analyzer.cabal b/ethereum-analyzer.cabal
--- a/ethereum-analyzer.cabal
+++ b/ethereum-analyzer.cabal
@@ -1,5 +1,5 @@
 name:                ethereum-analyzer
-version:             3.3.3
+version:             3.3.4
 synopsis:            A Ethereum contract analyzer.
 homepage:            https://github.com/zchn/ethereum-analyzer
 license:             Apache-2.0
@@ -21,7 +21,7 @@
 source-repository this
   type:     git
   location: https://github.com/zchn/ethereum-analyzer
-  tag:      v3.3.3
+  tag:      v3.3.4
   subdir:   ethereum-analyzer
 
 library
diff --git a/test/Ethereum/Analyzer/EVM/CfgAugWithTopNPassSpec.hs b/test/Ethereum/Analyzer/EVM/CfgAugWithTopNPassSpec.hs
--- a/test/Ethereum/Analyzer/EVM/CfgAugWithTopNPassSpec.hs
+++ b/test/Ethereum/Analyzer/EVM/CfgAugWithTopNPassSpec.hs
@@ -19,7 +19,7 @@
     it "works for hexstring1" $ do
       let result =
             unWordLabelMapM $ showText <$> doCfgAugWithTopNPass hexstring1
-      DT.length result `shouldBe` 4634
+      DT.length result `shouldBe` 4876
     it "works for hexstring2" $ do
       let result =
             toS $
diff --git a/test/Ethereum/Analyzer/EVM/CfgAugmentPassSpec.hs b/test/Ethereum/Analyzer/EVM/CfgAugmentPassSpec.hs
--- a/test/Ethereum/Analyzer/EVM/CfgAugmentPassSpec.hs
+++ b/test/Ethereum/Analyzer/EVM/CfgAugmentPassSpec.hs
@@ -21,7 +21,7 @@
             unWordLabelMapM $ do
               contract <- evmOps2HplContract disasmd
               (showText <$> doCfgAugmentPass contract) :: WordLabelMapM Text
-      Data.Text.length result `shouldBe` 4588
+      Data.Text.length result `shouldBe` 4829
     it "works for hexstring2" $ do
       let disasmd@((_, _):_) = disasm hexstring2
           result =