diff --git a/font-src/glyphs/letter/greek/lower-delta.ptl b/font-src/glyphs/letter/greek/lower-delta.ptl
index 998fb3574..1c7bb3b35 100644
--- a/font-src/glyphs/letter/greek/lower-delta.ptl
+++ b/font-src/glyphs/letter/greek/lower-delta.ptl
@@ -13,7 +13,7 @@ glyph-block Letter-Greek-Lower-Delta : begin
 		include : MarkSet.b
 
 		local xNeck : mix SB RightSB 0.07
-		local bar : mix 0 XH 0.96
+		local bar : Stroke * 0.25 + [mix 0 XH 0.875]
 		local xOTLeft : mix SB RightSB 0.5
 		local fine : Stroke * 0.5
 
@@ -46,20 +46,21 @@ glyph-block Letter-Greek-Lower-Delta : begin
 	turned 'turndelta' 0x18D 'grek/delta' Middle (XH / 2) [MarkSet.p]
 
 	create-glyph 'cyrl/be' 0x431 : glyph-proc
+		local yRingTop : mix 0 XH 0.875
 		include : MarkSet.b
 		include : dispiro
 			widths.rhs (Stroke * CThinB)
 			flat (SB + OX + Stroke * (1 - CThinB) * HVContrast) SmallSmoothB
-			curl (SB + OX + Stroke * (1 - CThinB) * HVContrast) (XH - SmallSmoothA)
+			curl (SB + OX + Stroke * (1 - CThinB) * HVContrast) (yRingTop - SmallSmoothA)
 			arcvh
-			g4 (Middle - CorrectionOMidS) (CAP * 0.7 - O) [widths.rhs Stroke]
+			g4 (Middle - CorrectionOMidS) (yRingTop - O) [widths.rhs Stroke]
 			archv
-			flat (RightSB - OX) (XH - SmallSmoothB)
+			flat (RightSB - OX) (yRingTop - SmallSmoothB)
 			curl (RightSB - OX) SmallSmoothA
 			arcvh
 			g4 (Middle + CorrectionOMidS) O
 			archv
 			flat (SB + OX) SmallSmoothB
-			curl (SB + OX) (XH - SmallSmoothA)
+			curl (SB + OX) (yRingTop - SmallSmoothA)
 			alsoThruThem [list {0.25 0.79} {0.5 0.87}] important
 			g4   (RightSB - HalfStroke * HVContrast) CAP
\ No newline at end of file