diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 97561c8e..adef7b40 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -4988,7 +4988,7 @@
 
       ; Alignment
       (for-each (lambda (name s)
-		  (mk name alignment (mk-cg 'change-weight s)))
+		  (mk name alignment (mk-cg 'change-alignment s)))
 		'("Top" "Center" "Bottom")
 		'(top center bottom))