diff --git a/Gt/Core.hs b/Gt/Core.hs
--- a/Gt/Core.hs
+++ b/Gt/Core.hs
@@ -10,7 +10,6 @@
 import Gt.Helpers
 import Gt.Translation
 
-import Data.List
 import Text.JSON
 
 do_trans :: Lang -> Lang -> String -> IO String
diff --git a/Gt/Helpers.hs b/Gt/Helpers.hs
--- a/Gt/Helpers.hs
+++ b/Gt/Helpers.hs
@@ -1,21 +1,35 @@
 module Gt.Helpers
     (
-        nub_sort
+        decodeString
     ,   from_ok
     ,   jarr_to_list
     ,   jstr_to_str
     ,   jlist_to_slist
+    ,   nub_sort
     ,   shift_lines
     )
 where
 
+import Data.Char
+import Data.Word
+
 import Text.JSON
 
+import qualified Codec.Binary.UTF8.String as U (decode)
 import qualified Data.Set as S
 
+-- UTF-8 decode helpers
+stringToBytes :: String -> [Word8]
+stringToBytes = map (toEnum . ord)
+
+decodeString :: String -> String
+decodeString = U.decode . stringToBytes
+
+
 -- nub + sort through Set
 nub_sort :: Ord a => [a] -> [a]
 nub_sort = S.toList . S.fromList
+
 
 -- shifts lines for 4 spaces for n times
 shift_lines :: Int -> String -> String
diff --git a/Gt/Net.hs b/Gt/Net.hs
--- a/Gt/Net.hs
+++ b/Gt/Net.hs
@@ -5,12 +5,14 @@
     )
 where
 
-import Gt.Langs
 import Data.Maybe
+
+import Gt.Helpers (decodeString)
+import Gt.Langs
+
 import Network.URL
 import Network.HTTP
 
-
 trans_url :: Lang -> Lang -> String -> String
 trans_url sl tl text =
     exportURL $ foldl add_param base_url [("text", text), ("sl", sl), ("tl", tl)]
@@ -19,7 +21,7 @@
 get_resp :: Lang -> Lang -> String -> IO String
 get_resp sl tl str =
   do result <- simpleHTTP (getRequest $ trans_url sl tl str) >>= getResponseBody
-     return result
+     return $ decodeString $ result
 
 get_resp_each_word :: Lang -> Lang -> String -> IO String
 get_resp_each_word = undefined
diff --git a/Gtc/gtc.hs b/Gtc/gtc.hs
--- a/Gtc/gtc.hs
+++ b/Gtc/gtc.hs
@@ -4,7 +4,7 @@
 ) where
 
 import Gt.Core
-import Data.List
+import Data.List (intercalate)
 import System.Exit
 import qualified System.Environment.UTF8 as U
 
diff --git a/Gtg/gtg.hs b/Gtg/gtg.hs
--- a/Gtg/gtg.hs
+++ b/Gtg/gtg.hs
@@ -4,19 +4,11 @@
 ) where
 
 import Gt.Core
-import Data.Word
-import Data.Char
+import Gt.Helpers (decodeString)
 import Gt.Langs
 import Graphics.UI.Gtk
 import Graphics.UI.Gtk.Glade
-import Codec.Binary.UTF8.String (decode)
 import Paths_gt_tools(getDataDir)
-
-stringToBytes :: String -> [Word8]
-stringToBytes = map (toEnum . ord)
-
-decodeString :: String -> String
-decodeString = decode . stringToBytes
 
 main :: IO()
 main = do
diff --git a/gt-tools.cabal b/gt-tools.cabal
--- a/gt-tools.cabal
+++ b/gt-tools.cabal
@@ -1,5 +1,5 @@
 name:                   gt-tools
-version:                0.1
+version:                0.1.1
 cabal-version:          >= 1.8
 build-type:             Simple
 license:                GPL
@@ -16,7 +16,7 @@
 category:               Tools
 author:                 Mikhail S. Pobolovets
 stability:              experimental
-tested-with:            GHC==6.10.4
+tested-with:            GHC==6.12.1
 data-files:             LICENSE README Gtg/main.glade
 data-dir:               ""
 extra-source-files:     Setup.lhs
@@ -42,17 +42,14 @@
 
 executable              gtg
     main-is:            gtg.hs
-
-    if flag(gui)
-      buildable:        True
-    else
-      buildable:        False
-
     ghc-options:        -Wall
     include-dirs:       .
     hs-source-dirs:     ., Gt, Gtg
     other-modules:      Gt.Core, Gt.Helpers, Gt.Langs, Gt.Net, Gt.Translation
-    build-depends:
+
+    if flag(gui)
+      buildable:        True
+      build-depends:
                         base >= 4 && < 5,
                         containers,
                         HTTP,
@@ -61,3 +58,5 @@
                         gtk,
                         glade,
                         utf8-string
+    else
+      buildable:        False