diff --git a/mf/feta-scripts.mf b/mf/feta-scripts.mf
index 35d09b9..5e94ed9 100644
--- a/mf/feta-scripts.mf
+++ b/mf/feta-scripts.mf
@@ -953,7 +953,7 @@ fet_beginchar ("Trill (`tr')", "trill");
 fet_endchar;
 
 
-def draw_heel =
+fet_beginchar ("heel", "pedalheel");
 	save radius, thickness;
 	save pat;
 	path pat;
@@ -986,22 +986,11 @@ def draw_heel =
 	       -- reverse pat xscaled -1 shifted (-feta_eps, 0)
 	       -- cycle;
 	fill pat;
-enddef;
-
-
-fet_beginchar ("left heel", "upedalheel");
-	draw_heel;
 	labels (1, 2, 3);
 fet_endchar;
 
 
-fet_beginchar ("right heel", "dpedalheel");
-	draw_heel;
-	y_mirror_char;
-fet_endchar;
-
-
-def draw_toe =
+fet_beginchar ("toe", "pedaltoe");
 	save ht, wd, thickness;
 
 	thickness := 1.5 linethickness;
@@ -1012,16 +1001,6 @@ def draw_toe =
 	set_char_box (wd#, wd#, 0, ht#);
 	draw_accent ((-h, -w), (0, w), thickness, 0.9);
 	currentpicture := currentpicture rotated -90;
-enddef;
-
-
-fet_beginchar ("left toe", "upedaltoe");
-	draw_toe;
-fet_endchar;
-
-
-fet_beginchar ("right toe", "dpedaltoe");
-	draw_toe;
 	y_mirror_char;
 fet_endchar;
 
diff --git a/scm/script.scm b/scm/script.scm
index 644c351..31dec42 100644
--- a/scm/script.scm
+++ b/scm/script.scm
@@ -123,7 +123,7 @@
 
     ("lheel"
      . (
-	(script-stencil . (feta . ("upedalheel" . "upedalheel")))
+	(script-stencil . (feta . ("pedalheel" . "pedalheel")))
 	(padding . 0.20)
 	(avoid-slur . around) ;guessing?
 	(direction . ,DOWN)))
@@ -141,7 +141,7 @@
 	(direction . ,UP)))
     ("ltoe"
      . (
-	(script-stencil . (feta . ("upedaltoe" . "upedaltoe")))
+	(script-stencil . (feta . ("pedaltoe" . "pedaltoe")))
 	(padding . 0.20)
 	(avoid-slur . around) ;guessing?
 	(direction . ,DOWN)))
@@ -218,13 +218,13 @@
 	(direction . ,UP)))
     ("rheel"
      . (
-	(script-stencil . (feta . ("dpedalheel" . "dpedalheel")))
+	(script-stencil . (feta . ("pedalheel" . "pedalheel")))
 	(padding . 0.20)
 	(avoid-slur . around) ;guessing?
 	(direction . ,UP)))
     ("rtoe"
      . (
-	(script-stencil . (feta . ("dpedaltoe" . "dpedaltoe")))
+	(script-stencil . (feta . ("pedaltoe" . "pedaltoe")))
 	(padding . 0.20)
 	(avoid-slur . around) ;guessing?
 	(direction . ,UP)))