diff --git a/HaskellCmdInputController.hs b/HaskellCmdInputController.hs
--- a/HaskellCmdInputController.hs
+++ b/HaskellCmdInputController.hs
@@ -33,6 +33,7 @@
 
 new env = do
   buf <- textBufferNew Nothing
+  textBufferSetText buf "\\env ->\n  let rows_t1 = env ! \"t1\" in\n  [[\"test\"]] ++ rows_t1"
   lsc <- LSC.new (Just "hs")
   lscv <- (lsc .> LSC.view)
   v@(View.V _ runB _ _ _) <- View.new buf lscv
@@ -81,6 +82,7 @@
 
 executeCmd text execCB state = do
   e <- env state
+--  let e = M.insert "t1" [["Hallo"],["welt"]] M.empty
   postGUISync $ widgetSetSensitivity (View.cancelB $ gui state) False
   postGUISync $ widgetSetSensitivity (View.executeB $ gui state) False
   postGUISync $ widgetSetSensitivity (View.textView $ gui state) False
@@ -89,13 +91,16 @@
   res <- runInterpreter (evalText haskellCode)
   case res of 
     Right func -> do 
-      let ex_handler :: (Show e) => e -> IO [[String]]
+      let ex_handler :: Exc.SomeException -> IO [[String]]
           ex_handler exc = postGUISync (labelSetText (View.exitCodeL $ gui state) ("Error: " ++ show exc)) >> return []
       lines <- Exc.catch (let res' = func e
-                          in (res' `using` rnf) `seq` return res')
+                          in (res' `using` rnf) `seq` do
+                            postGUISync $ labelSetText 
+                                            (View.exitCodeL $ gui state) 
+                                            ("Procuced " ++ show (length res') ++ " rows")
+                            return res')
                          ex_handler
       postGUISync (execCB lines)
-      postGUISync $ labelSetText (View.exitCodeL $ gui state) ("Procuced " ++ show (length lines) ++ " rows")
 
     Left errs -> 
       postGUISync $ labelSetText (View.exitCodeL $ gui state) ("Error: " ++ show  errs)
diff --git a/MultiWidgetContainerController.hs b/MultiWidgetContainerController.hs
--- a/MultiWidgetContainerController.hs
+++ b/MultiWidgetContainerController.hs
@@ -49,6 +49,7 @@
 
 dpcUpdated :: String -> [[String]] -> C -> IO C
 dpcUpdated name content state = do  
+  putStrLn $ "new content from " ++ name
   return (state {contents = M.insert name content (contents state)})
 
 data C = C 
diff --git a/README b/README
--- a/README
+++ b/README
diff --git a/ShellCmdInputController.hs b/ShellCmdInputController.hs
--- a/ShellCmdInputController.hs
+++ b/ShellCmdInputController.hs
@@ -59,8 +59,8 @@
   e <- textBufferGetEndIter buf
   textBufferGetText buf s e True
   
-runText :: C -> IO C
-runText state = do
+runText :: Maybe s -> C -> IO C
+runText additionalInput state = do
   locked <- tryPutMVar (execLock state) True
   if locked then
       case executeCB state of
@@ -74,7 +74,7 @@
             return state
     else return state
 
-executeCmd text execCB state (theshell:theargs) = do
+executeCmd text execCB state (theshell:theargs) = do 
   postGUISync $ widgetSetSensitivity (View.cancelB $ gui state) True
   postGUISync $ widgetSetSensitivity (View.executeB $ gui state) False
   postGUISync $ widgetSetSensitivity (View.textView $ gui state) False
@@ -85,7 +85,7 @@
                                                          P.terminateProcess ph
                                                          return ())
   forkOS $ do
-    hPutStr hin text
+    hPutStr hin (text ++ otherStdIn)
     lines <- L.hGetContents hout
     postGUISync $ execCB lines
                 
diff --git a/tabloid.cabal b/tabloid.cabal
--- a/tabloid.cabal
+++ b/tabloid.cabal
@@ -1,5 +1,5 @@
 Name:	         tabloid
-Version:         0.44
+Version:         0.45
 Description:     GUI for shell commands and log analysis
 Category:	 System
 Synopsis:	 View the output of shell commands in a table
@@ -37,5 +37,5 @@
 
 Executable tabloid
   Main-is:       Main.hs
-  Build-Depends: base >= 3.0 && < 4.0, gtk, regex-base, regex-posix>=0.93, bytestring, process, containers, hint, parallel
+  Build-Depends: base >= 4.0, gtk, regex-base, regex-posix>=0.93, bytestring, process, containers, hint, parallel
   ghc-options:   -O9 -fforce-recomp -funbox-strict-fields -threaded