diff --git a/concraft-hr.cabal b/concraft-hr.cabal
--- a/concraft-hr.cabal
+++ b/concraft-hr.cabal
@@ -1,5 +1,5 @@
 name:               concraft-hr
-version:            0.1.0.1
+version:            0.1.0.2
 synopsis:           Part-of-speech tagger for Croatian
 description:
     A part-of-speech tagger for Croatian based on the concraft library.
diff --git a/src/NLP/Concraft/Croatian/Morphosyntax.hs b/src/NLP/Concraft/Croatian/Morphosyntax.hs
--- a/src/NLP/Concraft/Croatian/Morphosyntax.hs
+++ b/src/NLP/Concraft/Croatian/Morphosyntax.hs
@@ -98,7 +98,7 @@
 -- the tags.
 addAnalysis :: X.Sent Word P.Tag -> [S.Set P.Tag] -> X.Sent Word P.Tag
 addAnalysis = zipWith f
-    where f seg tgs = seg { word = (word seg) { oov = M.null unionWP } -- out-of-dictionary if no analysis
+    where f seg tgs = seg { word = (word seg) { oov = M.null wtagsMap } -- out-of-dictionary if no analysis
                           , tags = X.mkWMap . M.toList $ unionWP}      -- TODO inefficient
             where wtagsMap = M.fromList $ zip (S.toList tgs) [0,0..]   -- weighted analysis tags
                   ptagsMap = X.unWMap . tags $ seg                     -- previous tags
diff --git a/src/NLP/Concraft/Croatian/Server.hs b/src/NLP/Concraft/Croatian/Server.hs
--- a/src/NLP/Concraft/Croatian/Server.hs
+++ b/src/NLP/Concraft/Croatian/Server.hs
@@ -12,7 +12,7 @@
 
 
 import           Control.Applicative ((<$>))
-import           Control.Monad (forever, void, mapM_)
+import           Control.Monad (forever, void)
 import           Control.Concurrent (forkIO)
 import           System.IO (Handle, hFlush)
 import qualified Network as N
diff --git a/tools/concraft-hr.hs b/tools/concraft-hr.hs
--- a/tools/concraft-hr.hs
+++ b/tools/concraft-hr.hs
@@ -259,7 +259,10 @@
         , onDisk    = disk
         , guessNum  = guessNum
         , r0        = r0 }
-    errMsg = "Please define the path to analyzer or set -noana to true!\n"
+    errMsg = "Please define the path to analyzer or set --noana!\n\
+             \Without the analyzer it isn't known whether the words \
+             \are out-of-dictionary or not, so automatically all are\
+             \ marked as out-of-dictionary. This can impact the performance."
 
 exec Tag{..} = do
     cft    <- C.loadModel inModel
@@ -281,7 +284,10 @@
     addTags x = zip x . map (map snd)
     -- | Builds a request and adds the body which will be sent to the server.
     rq x = R.Request { R.rqBody = x }
-    errMsg = "Please define the path to analyzer or set -noana to true!\n"
+    errMsg = "Please define the path to analyzer or set --noana!\n\
+             \Without the analyzer it isn't known whether the words \
+             \are out-of-dictionary or not, so automatically all are\
+             \ marked as out-of-dictionary. This can impact the performance."
     -- | Depending on the no-analysis and marginals boolean values a proper
     -- constructor is chosen. Constructors having an A suffix obviously are
     -- used to indicate that additional analysis is needed.