diff --git a/packages/font-glyphs/src/letter/latin/upper-a.ptl b/packages/font-glyphs/src/letter/latin/upper-a.ptl
index 60769998a..4ce2c7f4d 100644
--- a/packages/font-glyphs/src/letter/latin/upper-a.ptl
+++ b/packages/font-glyphs/src/letter/latin/upper-a.ptl
@@ -55,17 +55,19 @@ glyph-block Letter-Latin-Upper-A : begin
 	define [ABottomRightRemoved] : with-params [df fStraightBar slabKind top sw] : new-glyph : glyph-proc
 		define yBar : ABarPosition slabKind top
 		include : VShape df fStraightBar top sw
-		include : FlipAround df.middle (top / 2)
 		eject-contour 'strokeDown'
+		include : FlipAround df.middle (top / 2)
 
 		local rightStrokeKnots : begin
 			local s : Seg (df.middle + VCornerHalfWidth * sw / Stroke) top df.rightSB (yBar - sw)
 			list
-				s.z 0 flat
+				s.z (-1) flat
+				s.z 0    flat
 				s.zz 0.55 [StrokeWidthBlend 0.48 0.45] [if fStraightBar curl g4]
 				s.z 1 straight.down.end
 
 		include : intersection
+			MaskBelow top
 			MaskAbove (yBar - sw)
 			dispiro [widths.rhs sw] rightStrokeKnots