diff --git a/Text/Shakespeare/I18N.hs b/Text/Shakespeare/I18N.hs
index c523177..0d77db4 100644
--- a/Text/Shakespeare/I18N.hs
+++ b/Text/Shakespeare/I18N.hs
@@ -183,7 +183,7 @@ mkMessageCommon genType prefix postfix master dt rawFolder lang = do
                                 Right x -> x
                  dt0 = intercalate " " dt1
                  master' | cxt0 == [] = master
-                         | otherwise = intercalate " " . fst $  -- This variant probably causes errors while testing.
+                         | otherwise = concat . take 1 . fst $  -- This variant probably causes errors while testing -- Changed for debugging purposes from interacale \" \" . fst
                                          (case (parse parseName "" master) of
                                             Left err  -> error $ show err
                                             Right x -> x)