diff --git a/bedstead-faces.css b/bedstead-faces.css
index 4db70b6..529faf5 100644
--- a/bedstead-faces.css
+++ b/bedstead-faces.css
@@ -102,6 +102,8 @@
         saa5054: 4;
     }
     @character-variant {
+        apostrophe-default: 6 1;
+        apostrophe-curly: 6 2
         comma-default: 12 1;
         comma-left: 12 2;
         period-default: 14 1;
diff --git a/bedstead.c b/bedstead.c
index 28f649c..401ee0f 100644
--- a/bedstead.c
+++ b/bedstead.c
@@ -520,6 +520,7 @@ static struct glyph {
   */
 
  /* Basic Latin */
+ ALIAS("quotesingle.curly", "quoteright"),
  ALIAS("A.c2sc", "uni1D00"),
  ALIAS("B.c2sc", "uni0299"),
  ALIAS("C.c2sc", "uni1D04"),
@@ -2845,6 +2846,7 @@ static struct alt_sub_override {
  * are then used to create 'cvXX' features and grouped into 'ssXX'
  * features.
  */
+#define CV07(V) V("quotesingle", ".curly")
 #define CV12(V) V("comma", ".left")
 #define CV14(V) V("period", ".large")
 #define CV26(V) V("colon", ".leftsmall")
@@ -2940,13 +2942,15 @@ static struct gsub_feature {
 #define SUFFIXSUB2(base, suffix1, suffix2, ...) SUB(base, base suffix2)
 #define SINGLESUB(x) "<SingleSubst>\n" x "</SingleSubst>\n"
 	{ "ss01", SCRIPT_ALL, .name = "SAA5051",
-	  .xml = SINGLESUB(CV12(SUFFIXSUB1) CV14(SUFFIXSUB1) CV26(SUFFIXSUB1)
+	  .xml = SINGLESUB(CV07(SUFFIXSUB1) CV12(SUFFIXSUB1)
+			   CV14(SUFFIXSUB1) CV26(SUFFIXSUB1)
 			   CV27(SUFFIXSUB1) CV31(SUFFIXSUB1)
 			   CV38(SUFFIXSUB1) CV42(SUFFIXSUB1)
 			   CV44(SUFFIXSUB1) CV74(SUFFIXSUB1)
 			   CV84(SUFFIXSUB1)) },
 	{ "ss02", SCRIPT_ALL, .name = "SAA5052",
-	  .xml = SINGLESUB(CV12(SUFFIXSUB1) CV14(SUFFIXSUB1) CV26(SUFFIXSUB1)
+	  .xml = SINGLESUB(CV07(SUFFIXSUB1) CV12(SUFFIXSUB1)
+			   CV14(SUFFIXSUB1) CV26(SUFFIXSUB1)
 			   CV27(SUFFIXSUB1) CV31(SUFFIXSUB1)
 			   CV38(SUFFIXSUB2) CV42(SUFFIXSUB1)
 			   CV44(SUFFIXSUB1) CV74(SUFFIXSUB1)
@@ -2968,6 +2972,8 @@ static struct gsub_feature {
 	 * Where possible, Character Variant features have numbers
 	 * that are 32 less than the ASCII code of the base character.
 	 */
+	{ "cv07", SCRIPT_ALL, .name = "apostrophe variants",
+	  .xml = ALTSUB(CV07(CV2)) },
 	{ "cv12", SCRIPT_ALL, .name = "comma variants",
 	  .xml = ALTSUB(CV12(CV2)) },
 	{ "cv14", SCRIPT_ALL, .name = "full-stop variants",