Unicode. Batch transl into HTML.

1 files changed, 1 insertions, 1 deletions

diff --git a/src/GF.hs b/src/GF.hs
index c153b55b6..af75126b2 100644
--- a/src/GF.hs
+++ b/src/GF.hs
@@ -24,7 +24,7 @@ main = do
   let (os,fs) = getOptions "-" xs
       java    = oElem forJava os
       isNew   = oElem newParser os ---- temporary hack to have two parallel GUIs
-  putStrLn $ if java then encodeUTF8 welcomeMsg else welcomeMsg
+  putStrLnFlush $ if java then encodeUTF8 welcomeMsg else welcomeMsg
   st <- case fs of 
     _ -> useIOE emptyShellState $ foldM (shellStateFromFiles os) emptyShellState fs
   ---  _ -> return emptyShellState