diff --git a/packages/font-glyphs/src/letter/shared.ptl b/packages/font-glyphs/src/letter/shared.ptl
index c98ac464a..289fa6158 100644
--- a/packages/font-glyphs/src/letter/shared.ptl
+++ b/packages/font-glyphs/src/letter/shared.ptl
@@ -593,6 +593,8 @@ glyph-block Letter-Shared-Shapes : begin
 	glyph-block-export ArcStartSerifDepth
 	define [ArcStartSerifDepth hook] : hook - O * 2
 
+	define [ArcStartInwardSerifDepth hook stroke] : Math.max (hook + DToothlessRise / 3) (DToothlessRise + stroke)
+
 	glyph-block-export : ArcStartSerif
 	define ArcStartSerif : namespace
 		export : define [L cx cy stroke hook overflow] : begin
@@ -601,9 +603,9 @@ glyph-block Letter-Shared-Shapes : begin
 			return : tagged 'arcStartSerifR' : VBar.r cx (cy - hook + O * 2) (cy + [fallback overflow 0]) [ArcStartSerifWidth stroke]
 
 		export : define [InwardL cx cy stroke hook] : begin
-			return : tagged 'arcStartSerifL' : VBar.l cx (cy - hook - DToothlessRise / 3) (cy - DToothlessRise) [ArcStartSerifWidth stroke]
+			return : tagged 'arcStartSerifL' : VBar.l cx (cy - [ArcStartInwardSerifDepth hook stroke]) (cy - DToothlessRise) [ArcStartSerifWidth stroke]
 		export : define [InwardR cx cy stroke hook] : begin
-			return : tagged 'arcStartSerifR' : VBar.r cx (cy - hook - DToothlessRise / 3) (cy - DToothlessRise) [ArcStartSerifWidth stroke]
+			return : tagged 'arcStartSerifR' : VBar.r cx (cy - [ArcStartInwardSerifDepth hook stroke]) (cy - DToothlessRise) [ArcStartSerifWidth stroke]
 
 	glyph-block-export : ArcEndSerif
 	define ArcEndSerif : namespace
@@ -613,9 +615,9 @@ glyph-block Letter-Shared-Shapes : begin
 			return : tagged 'arcEndSerifR' : VBar.r cx (cy + hook - O * 2) (cy - [fallback overflow 0]) [ArcStartSerifWidth stroke]
 
 		export : define [InwardL cx cy stroke hook] : begin
-			return : tagged 'arcEndSerifL' : VBar.l cx (cy + hook + DToothlessRise / 2) (cy + DToothlessRise) [ArcStartSerifWidth stroke]
+			return : tagged 'arcEndSerifL' : VBar.l cx (cy + [ArcStartInwardSerifDepth hook stroke]) (cy + DToothlessRise) [ArcStartSerifWidth stroke]
 		export : define [InwardR cx cy stroke hook] : begin
-			return : tagged 'arcEndSerifR' : VBar.r cx (cy + hook + DToothlessRise / 2) (cy + DToothlessRise) [ArcStartSerifWidth stroke]
+			return : tagged 'arcEndSerifR' : VBar.r cx (cy + [ArcStartInwardSerifDepth hook stroke]) (cy + DToothlessRise) [ArcStartSerifWidth stroke]
 
 	glyph-block-export DiagTail
 	define DiagTail : namespace