diff --git a/pkgs/unstable-pkgs/unstable-lib/gui/private/ppict.rkt b/pkgs/unstable-pkgs/unstable-lib/gui/private/ppict.rkt
index f753d7308e..5dcfa0fbd1 100644
--- a/pkgs/unstable-pkgs/unstable-lib/gui/private/ppict.rkt
+++ b/pkgs/unstable-pkgs/unstable-lib/gui/private/ppict.rkt
@@ -319,7 +319,7 @@ In a placer function's arguments:
   (case align
     ((lt ct rt) 't)
     ((lc cc rc) 'c)
-    ((lb cb rb) 'r)))
+    ((lb cb rb) 'b)))
 
 (define (halign->vcompose halign)
   (case halign