diff --git a/collects/tests/mred/draw.ss b/collects/tests/mred/draw.ss
index fa6bbd45..8c406ca9 100644
--- a/collects/tests/mred/draw.ss
+++ b/collects/tests/mred/draw.ss
@@ -523,7 +523,7 @@
 					    (let-values ([(w h d a) (send dc get-text-extent s cfnt kern?)])
 					      (send dc draw-rectangle x y w h)
 					      (send dc draw-line x (+ y (- h d)) (+ x w) (+ y (- h d)))
-					      ;; Alien-in-a-box character (beyond UCS-2)
+					      ;; Mathematical "A" (beyond UCS-2)
 					      (let ([s "\U1D670"]
 						    [x (+ x (* 1.5 w))])
 						(send dc set-font fnt)