diff --git a/collects/slideshow/tutorial-show.rkt b/collects/slideshow/tutorial-show.rkt
index 83300dc0f5..bb4abc0afe 100644
--- a/collects/slideshow/tutorial-show.rkt
+++ b/collects/slideshow/tutorial-show.rkt
@@ -425,7 +425,7 @@
  (hc-append
   (* 3 gap-size)
   (face 'happy "yellow")
-  (face 'badly-embarassed)))
+  (face 'badly-embarrassed)))
 
 
 (slide
diff --git a/collects/texpict/face-demo.rkt b/collects/texpict/face-demo.rkt
index 378496ce04..6413319cb6 100644
--- a/collects/texpict/face-demo.rkt
+++ b/collects/texpict/face-demo.rkt
@@ -35,8 +35,8 @@
       happy
       happier
       happiest
-      embarassed
-      badly-embarassed
+      embarrassed
+      badly-embarrassed
       mad
       mean
       surprised))
diff --git a/collects/texpict/face.rkt b/collects/texpict/face.rkt
index cad9bc968a..a2d89fdced 100644
--- a/collects/texpict/face.rkt
+++ b/collects/texpict/face.rkt
@@ -368,9 +368,9 @@
 	 (face* 'none 'plain #f face-color 6)]
 	[(happier)
 	 (face* 'none 'large #f face-color 3)]
-	[(embarassed)
+	[(embarrassed embarassed) ; keep older misspelled name
 	 (face* 'worried 'medium #f face-color 3)]
-	[(badly-embarassed)
+	[(badly-embarrassed badly-embarassed) ; here too
 	 (face* 'worried 'medium #t face-color 3)]
 	[(unhappier)
 	 (face* 'normal 'large #t face-color 3)]