diff --git a/eventloop.cabal b/eventloop.cabal
--- a/eventloop.cabal
+++ b/eventloop.cabal
@@ -6,7 +6,7 @@
 -- PVP summary:      +-+------- breaking API changes
 --                   | | +----- non-breaking API additions
 --                   | | | +--- code changes with no API change
-version:             0.4.1.0
+version:             0.4.1.1
 synopsis:            A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
 description:         A different take on an IO system. Based on Amanda's IO loop, this eventloop takes a function that maps input events to output events. It can easily be extended by modules that represent IO devices or join multiple modules together.
                      Each module exists of a initialize and teardown function that are both called once at startup and shutting down. During run-time, a module can provice a preprocessor function (which transforms input events before they get to the eventloop),
diff --git a/src/Eventloop/EventloopCore.hs b/src/Eventloop/EventloopCore.hs
--- a/src/Eventloop/EventloopCore.hs
+++ b/src/Eventloop/EventloopCore.hs
@@ -6,6 +6,7 @@
 
 import Data.Maybe
 import Control.Exception
+import Control.Concurrent
 
 type HasToStop = Bool
 type PhaseDescription = [Char]
@@ -116,7 +117,9 @@
                                         (moduleConfig:mcs) = moduleConfigurations eventloopConfig
                                         eventRetrieverM = eventRetriever moduleConfig
                                         sharedIO = sharedIOState eventloopConfig
-                                        checkNextModule sio mc = receiveEvents (eventloopConfig {moduleConfigurations=(mcs++[mc]), sharedIOState=sio})
+                                        checkNextModule sio mc = do
+                                                                    threadDelay 100000
+                                                                    receiveEvents (eventloopConfig {moduleConfigurations=(mcs++[mc]), sharedIOState=sio})
                                     case eventRetrieverM of
                                         Nothing -> checkNextModule sharedIO moduleConfig
                                         Just er -> handle
diff --git a/src/Eventloop/Module/BasicShapes/Types.hs b/src/Eventloop/Module/BasicShapes/Types.hs
--- a/src/Eventloop/Module/BasicShapes/Types.hs
+++ b/src/Eventloop/Module/BasicShapes/Types.hs
@@ -68,7 +68,7 @@
                       , fontSize :: FontSize
                       , translation :: Translation
                       , fillColor :: FillColor
-                      } -- ^Translation is center, does not have a boundingbox due to technical limitations
+                      } -- ^Translation is horizontally the center and vertically the top of the text, does not have a boundingbox due to technical limitations
                | Line { point1 :: Point
                       , point2 :: Point 
                       }