diff --git a/collects/mred/private/afm.ss b/collects/mred/private/afm.ss
index 35b516ee78..35a3fba9a8 100644
--- a/collects/mred/private/afm.ss
+++ b/collects/mred/private/afm.ss
@@ -252,7 +252,7 @@
 				     [r (read i)]
 				     [b (read i)])
 				 (set! bbox-down t))]
-		   [(capheight) (set! cap-height (read i))]
+		   [(ascender) (set! cap-height (read i))]
 		   [(characterset) (let ([m (regexp-match #rx#"[a-zA-Z_0-9-]+" (read-bytes-line i))])
 				     (when m
 				       (set! char-set-name (car m))