I was playing with Athens and I found and error that you can reproduce with the next script in Pharo8x64 macOs

```Smalltalk

AthensSurfaceExamples openViewOn: [ :can |
can pathTransform restoreAfter: [
can pathTransform translateX: 30 Y: 30.
can pathTransform rotateByDegrees: 35.
can setPaint: Color red.
can setStrokePaint: Color black.

can setShape: (-20@ -20 corner: 20@ 20).
can draw.
].
].
AthensSurfaceExamples openViewOn: [ :can |
can pathTransform restoreAfter: [
can pathTransform translateX: 30 Y: 30.
can pathTransform rotateByDegrees: 35.
can setPaint: Color red.
(can setStrokePaint: Color black)
width: 6;
dashes: #(4) offset: 0.

can setShape: (-20@ -20 corner: 20@ 20).
can draw.
].
].
AthensSurfaceExamples openViewOn: [ :can |
can pathTransform restoreAfter: [
can pathTransform translateX: 30 Y: 30.
can pathTransform rotateByDegrees: 35.
can setPaint: Color red.
can setStrokePaint: Color black.
can setShape: (-20@ -20 corner: 20@ 20).
can draw.
].
].

```

The previous examples opens 3 windows

The first the line is normal

The second the line is dashed

The third one should be normal, but it is dashed

Why because there is a cache for the color black in the methods `setStrokePaint:`

I think that we need to fix this,

Cheers,

Milton