diff --git a/font-src/glyphs/letter/latin/c.ptl b/font-src/glyphs/letter/latin/c.ptl
index 711581fc8..c96f0e19b 100644
--- a/font-src/glyphs/letter/latin/c.ptl
+++ b/font-src/glyphs/letter/latin/c.ptl
@@ -187,14 +187,16 @@ glyph-block Letter-Latin-C : begin
 			include : lf.full
 
 		create-glyph "c/centKernelStd.\(suffix)" : glyph-proc
-			set-base-anchor 'cvDecompose' 0 0
+			set-width 0
+			set-mark-anchor 'cvDecompose' Middle (XH / 2)
 			local lf : CLetterForm [DivFrame 1] sty styBot XH 0
 				ada -- SmallArchDepthA
 				adb -- SmallArchDepthB
 			include : lf.full
 
 		create-glyph "c/centKernelCap.\(suffix)" : glyph-proc
-			set-base-anchor 'cvDecompose' 0 0
+			set-width 0
+			set-mark-anchor 'cvDecompose' Middle (CAP / 2)
 			local t : CAP / 2 + XH / 2
 			local b : CAP / 2 - XH / 2
 			local lf : CLetterForm [DivFrame 1] sty styBot t b
@@ -368,6 +370,8 @@ glyph-block Letter-Latin-C : begin
 			local fillBottom : yMid - XH / 2 + HalfStroke
 			local fillTop : yMid + XH / 2 - HalfStroke
 
+			set-base-anchor 'cvDecompose' Middle yMid
+
 			# Draw the outside subbars
 			include : dispiro
 				flat Middle fillTop [widths.center w]
diff --git a/font-src/glyphs/letter/latin/s.ptl b/font-src/glyphs/letter/latin/s.ptl
index 9a4aff886..8db17bfee 100644
--- a/font-src/glyphs/letter/latin/s.ptl
+++ b/font-src/glyphs/letter/latin/s.ptl
@@ -249,21 +249,23 @@ glyph-block Letter-Latin-S : begin
 			include : SAutoSlabEnd   doBS 0  sw Hook
 
 		create-glyph "S/dollarKernelStd.\(suffix)" : glyph-proc
+			set-width 0
+			set-mark-anchor 'cvDecompose' Middle (CAP / 2)
+
 			define top : CAP * 0.95
 			define bot : CAP * 0.05
 			local sw : AdviceStroke2 2 3 (top - bot)
-			include : MarkSet.capital
-			set-base-anchor 'cvDecompose' 0 0
 			include : SStrokeImpl top bot doTS doBS sw EssUpper
 			include : SAutoSlabStart doTS top sw Hook
 			include : SAutoSlabEnd   doBS bot sw Hook
 
 		create-glyph "S/dollarKernelCap.\(suffix)" : glyph-proc
+			set-width 0
+			set-mark-anchor 'cvDecompose' Middle (CAP / 2)
+
 			define top : CAP * 0.88
 			define bot : CAP * 0.12
 			local sw : AdviceStroke2 2 3 (top - bot)
-			include : MarkSet.capital
-			set-base-anchor 'cvDecompose' 0 0
 			include : SStrokeImpl top bot doTS doBS sw EssUpper
 			include : SAutoSlabStart doTS top sw Hook
 			include : SAutoSlabEnd   doBS bot sw Hook
@@ -469,6 +471,8 @@ glyph-block Letter-Latin-S : begin
 			define w : AdviceStroke 3
 			define fine : AdviceStroke [StrokeWidthBlend 3 5.5]
 
+			set-base-anchor 'cvDecompose' Middle (CAP / 2)
+
 			include : dispiro
 				widths.center w
 				flat Middle (top - HalfStroke)