diff --git a/changes/21.1.1.md b/changes/21.1.1.md
index b4488f024..ed104bfb7 100644
--- a/changes/21.1.1.md
+++ b/changes/21.1.1.md
@@ -6,4 +6,5 @@
   - LATIN CAPITAL LETTER OO (`U+A74E`).
   - LATIN SMALL LETTER OO (`U+A74F`).
   - LATIN SMALL LETTER UO (`U+AB63`).
+* Fix variant application to `U+A7C7` (#1613).
 * Fix broken shape of `p` under `cv40 = 3` (#1614).
diff --git a/font-src/glyphs/letter/latin/upper-d.ptl b/font-src/glyphs/letter/latin/upper-d.ptl
index e6d0a7b76..8a260d226 100644
--- a/font-src/glyphs/letter/latin/upper-d.ptl
+++ b/font-src/glyphs/letter/latin/upper-d.ptl
@@ -91,9 +91,8 @@ glyph-block Letter-Latin-Upper-D : begin
 	alias 'Dcroat' 0x110 'Eth'
 	alias 'arficanD' 0x189 'Eth'
 
-	create-glyph 'Dbar' 0xA7C7 : glyph-proc
-		include [refer-glyph 'D'] AS_BASE
-		include : HBar.m (SB + OX + 1) (RightSB - OX - 1) (CAP * 0.5) OverlayStroke
+	derive-composites 'Dbar' 0xA7C7 'D'
+		HBar.m (SB - OX) (RightSB + OX) (CAP * 0.5) OverlayStroke
 
 	select-variant 'smcpD' 0x1D05 (follow -- 'D')
 	derive-glyphs 'smcpEth' 0x1D06 'smcpD' : lambda [src gr] : glyph-proc