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.8.2.4
+version:             0.8.2.5
 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/Module/BasicShapes/Classes.hs b/src/Eventloop/Module/BasicShapes/Classes.hs
--- a/src/Eventloop/Module/BasicShapes/Classes.hs
+++ b/src/Eventloop/Module/BasicShapes/Classes.hs
@@ -417,7 +417,7 @@
         where
           canvasText = toCanvasText text
           textFill = CT.TextFill (CT.CanvasColor screenFillColor)
-          textStroke = CT.TextStroke (round thick) (CT.CanvasColor screenStrokeColor)
+          textStroke = CT.TextStroke thick (CT.CanvasColor screenStrokeColor)
           screenStrokeColor = roundColor stroke
           screenFillColor = roundColor fill
           p' = roundPoint p
@@ -452,7 +452,7 @@
             Just (screenPathParts, startingPoint) = screenPathPartsM
             screenStrokeColor = roundColor $ strokeColor shape
             thick = strokeLineThickness shape
-            pathStroke = CT.PathStroke (round thick) (CT.CanvasColor screenStrokeColor)
+            pathStroke = CT.PathStroke thick (CT.CanvasColor screenStrokeColor)
 
           
 class ToScreenPathPart a where
diff --git a/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs b/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs
--- a/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs
+++ b/src/Eventloop/Module/StatefulGraphics/StatefulGraphics.hs
@@ -16,7 +16,6 @@
 import Eventloop.Types.System
 import Eventloop.Utility.Vectors
 
-
 setupStatefulGraphicsModuleConfiguration :: EventloopSetupModuleConfiguration
 setupStatefulGraphicsModuleConfiguration = ( EventloopSetupModuleConfiguration
                                               statefulGraphicsModuleIdentifier
@@ -145,9 +144,10 @@
                          -> StatefulBB
                          -> (GraphicsState, GraphicsState, GraphicsState)
 calculateRedrawsForDrawn (toCheck, toRedraw, toRemove) new@(StatefulBB (Stateful id _ (Text {})) _)
-   = calculateRedrawsForRemoved (toCheck', new:toRedraw, toRemove) new
+   = calculateRedrawsForRemoved (toCheck', toRedraw', toRemove) new
    where
        toCheck' = fst $ removeGraphic toCheck id
+       toRedraw' = fst $ addOrReplaceGraphic toRedraw new
 calculateRedrawsForDrawn (toCheck, toRedraw, toRemove) new
     = foldl calculateRedrawsForDrawn (toCheck', toRedraw', toRemove) checkNow
     where
@@ -170,7 +170,7 @@
                            -> StatefulBB
                            -> (GraphicsState, GraphicsState, GraphicsState)
 calculateRedrawsForRemoved (toCheck, toRedraw, toRemove) old
-    = (toCheck', toRedraw', toRemove')
+    = (toCheck'', toRedraw', toRemove'')
     where
         id = getId old
         z = getZ old
@@ -191,7 +191,9 @@
                  ++ aboveOverlapped
                  ++ aboveContained
                  ++ aboveContainedBy
-        (toCheck', toRedraw', toRemove') = foldl calculateRedrawsForDrawn (toCheck, toRedraw, old:toRemove) checkNow
+        toRemove' = fst $ addOrReplaceGraphic toRemove old
+        toCheck' = fst $ removeGraphic toCheck id
+        (toCheck'', toRedraw', toRemove'') = foldl calculateRedrawsForDrawn (toCheck', toRedraw, toRemove') checkNow
 
 
 statefulIds :: GraphicsState -> [NamedId]
diff --git a/src/Eventloop/Module/Websocket/Canvas/Types.hs b/src/Eventloop/Module/Websocket/Canvas/Types.hs
--- a/src/Eventloop/Module/Websocket/Canvas/Types.hs
+++ b/src/Eventloop/Module/Websocket/Canvas/Types.hs
@@ -52,7 +52,7 @@
 type ScaleX = ScaleUnit
 type ScaleY = ScaleUnit
 
-type ScreenLineThickness = ScreenMetric
+type ScreenLineThickness = Float
 
 type FontFamily = [Char]
 type FontSize = Int -- In Pixels