diff --git a/src/app/MetaBrush/Render/Document.hs b/src/app/MetaBrush/Render/Document.hs
index 5644d0b..fe3dbdc 100644
--- a/src/app/MetaBrush/Render/Document.hs
+++ b/src/app/MetaBrush/Render/Document.hs
@@ -622,7 +622,7 @@ drawFitPoint _ zoom ( FitPoint { fitPoint = ℝ2 x y } ) = do
   lift do
     Cairo.save
     Cairo.translate x y
-    Cairo.arc 0 0 ( 6 / zoom ) 0 ( 2 * pi ) -- 2 / zoom
+    Cairo.arc 0 0 ( 4 / zoom ) 0 ( 2 * pi )
     Cairo.setSourceRGBA r g b 0.8
     Cairo.fill
     Cairo.restore
@@ -639,8 +639,8 @@ drawFitPoint _ zoom ( FitTangent { fitPoint = ℝ2 x y, fitTangent = V2 tx ty }
     Cairo.translate x y
     Cairo.moveTo 0 0
     Cairo.lineTo ( 0.05 * tx ) ( 0.05 * ty )
-    Cairo.setLineWidth ( 4 / zoom ) -- 1 / zoom
-    Cairo.setSourceRGBA r g b 0.8
+    Cairo.setLineWidth ( 4 / zoom )
+    Cairo.setSourceRGBA r g b 1.0
     Cairo.stroke
     Cairo.arc 0 0 ( 2 / zoom ) 0 ( 2 * pi )
     Cairo.fill
diff --git a/src/splines/Math/Bezier/Stroke.hs b/src/splines/Math/Bezier/Stroke.hs
index cc02076..b47bdb7 100644
--- a/src/splines/Math/Bezier/Stroke.hs
+++ b/src/splines/Math/Bezier/Stroke.hs
@@ -612,7 +612,8 @@ outlineFunction ptParams toBrushParams brushFromParams sp0 crv =
      OutlineInfo
        { outlineFn = fwdBwd
        , outlineDefiniteCusps  = map ( cuspCoords curves ) newtSols
-       , outlinePotentialCusps = map ( cuspCoords curves ) newtDunno }
+       , outlinePotentialCusps = map ( cuspCoords curves ) newtDunno
+       }
 
 -----------------------------------
 -- Various utility functions