diff --git a/packages/font-glyphs/src/letter/latin/lower-e.ptl b/packages/font-glyphs/src/letter/latin/lower-e.ptl
index 253a53489..0ad9cdc20 100644
--- a/packages/font-glyphs/src/letter/latin/lower-e.ptl
+++ b/packages/font-glyphs/src/letter/latin/lower-e.ptl
@@ -41,12 +41,12 @@ glyph-block Letter-Latin-Lower-E : begin
 
 	glyph-block-export SmallEShape
 	define [SmallEShape] : with-params [df top stroke barpos [bbd 0] tailSlab schwaTail] : glyph-proc
-		local barbottom : top * [fallback barpos DesignParameters.eBarPos] - (stroke / 2)
+		local barBottom : top * [fallback barpos DesignParameters.eBarPos] - (stroke / 2)
 
-		include : HBar.b (df.leftSB + (stroke / 2) + OX + bbd) (df.rightSB - (stroke / 2) - OX) barbottom stroke
+		include : HBar.b (df.leftSB + (stroke / 2) + OX + bbd) (df.rightSB - (stroke / 2) - OX) barBottom stroke
 		local path : include : dispiro
 			widths.lhs stroke
-			flat (df.rightSB - OX) barbottom [heading Upward]
+			flat (df.rightSB - OX) barBottom [heading Upward]
 			curl (df.rightSB - OX) (top - [df.archDepthB SmallArchDepth])
 			arch.lhs top (sw -- stroke)
 			flat (df.leftSB + OX) (top - [df.archDepthA SmallArchDepth])
@@ -59,12 +59,12 @@ glyph-block Letter-Latin-Lower-E : begin
 
 	glyph-block-export RevSmallEShape
 	define [RevSmallEShape] : with-params [df top stroke barpos] : glyph-proc
-		local barbottom : top * [fallback barpos DesignParameters.eBarPos] - (stroke / 2)
+		local barBottom : top * [fallback barpos DesignParameters.eBarPos] - (stroke / 2)
 
-		include : HBar.b (df.leftSB + (stroke / 2) + OX) (df.rightSB - (stroke / 2) - OX) barbottom stroke
+		include : HBar.b (df.leftSB + (stroke / 2) + OX) (df.rightSB - (stroke / 2) - OX) barBottom stroke
 		include : dispiro
 			widths.rhs stroke
-			flat (df.leftSB + OX) barbottom [heading Upward]
+			flat (df.leftSB + OX) barBottom [heading Upward]
 			curl (df.leftSB + OX) (top - [df.archDepthA SmallArchDepth])
 			arch.rhs top (sw -- stroke)
 			flat (df.rightSB - OX) (top - [df.archDepthB SmallArchDepth])
@@ -74,16 +74,16 @@ glyph-block Letter-Latin-Lower-E : begin
 
 	glyph-block-export SmallERoundedShape
 	define [SmallERoundedShape] : with-params [df top stroke barpos tailSlab schwaTail] : glyph-proc
-		local barbottom : top * [fallback barpos : if para.isItalic 0.500 0.475] - (stroke / 2)
+		local barBottom : top * [fallback barpos : if para.isItalic 0.500 0.475] - (stroke / 2)
 		local xStart : df.leftSB + [HSwToV : 0.125 * stroke]
-		local pfIt : if para.isItalic 1 0
+		local extraCurliness : if para.isItalic (0.05 * (top - barBottom)) 0
 		local path : include : dispiro
 			widths.lhs stroke
-			[if para.isItalic g2 flat] xStart (barbottom + 0.1 * pfIt * (top - barbottom))
+			[if para.isItalic g4 flat] xStart (barBottom + extraCurliness)
 			if para.isItalic [alsoThru.g2 0.5 0.8] [list]
-			[if para.isItalic g2.right.mid flat] [mix xStart df.rightSB 0.475] barbottom
+			[if para.isItalic g4.right.mid curl] [mix xStart df.rightSB 0.475] (barBottom - extraCurliness)
 			archv
-			g4   (df.rightSB - OX) [YSmoothMidR top barbottom]
+			g4   (df.rightSB - OX) [YSmoothMidR top barBottom]
 			arch.lhs top (sw -- stroke)
 			flat (df.leftSB + OX) (top - [df.archDepthA SmallArchDepth])
 			curl (df.leftSB + OX) (0   + [df.archDepthB SmallArchDepth])
@@ -95,16 +95,17 @@ glyph-block Letter-Latin-Lower-E : begin
 
 	glyph-block-export RevSmallERoundedShape
 	define [RevSmallERoundedShape] : with-params [df top stroke barpos] : glyph-proc
-		local barbottom : top * [fallback barpos : if para.isItalic 0.500 0.475] - (stroke / 2)
+		local barBottom : top * [fallback barpos : if para.isItalic 0.500 0.475] - (stroke / 2)
 		local xStart : df.rightSB - [HSwToV : 0.125 * stroke]
 		local pfIt : if para.isItalic 1 0
+		local extraCurliness : if para.isItalic (0.05 * (top - barBottom)) 0
 		include : dispiro
 			widths.rhs stroke
-			[if para.isItalic g2 flat] xStart (barbottom + 0.1 * pfIt * (top - barbottom))
+			[if para.isItalic g4 flat] xStart (barBottom + extraCurliness)
 			if para.isItalic [alsoThru.g2 0.5 0.8] [list]
-			[if para.isItalic g2.left.mid curl] [mix xStart df.leftSB 0.475] (barbottom + pfIt * [StrokeWidthBlend 0.25 1] * O)
+			[if para.isItalic g4.left.mid curl] [mix xStart df.leftSB 0.475] (barBottom - extraCurliness)
 			archv
-			g4   (df.leftSB + OX) [YSmoothMidL top barbottom]
+			g4   (df.leftSB + OX) [YSmoothMidL top barBottom]
 			arch.rhs top (sw -- stroke)
 			flat (df.rightSB - OX) (top - [df.archDepthB SmallArchDepth])
 			curl (df.rightSB - OX) (0   + [df.archDepthA SmallArchDepth])