.

original commit: 3121ef3a52f3a0c68db6e5408dd8f29adf4cb945

collects/tests/mred/item.ss

@@ -228,7 +228,7 @@
       (send p stretchable-width stretchy?)
       (send p stretchable-height stretchy?)
       
-      (begin
+      (let ()
 	(define l (make-object message% "Me&ssage" p))
 	(define il (make-object message% return-bmp p))
 	
@@ -435,7 +435,7 @@
   (when special-button-font?
     (send ip2 set-control-font special-font))
   
-  (begin
+  (let ()
     (define sh (make-object slider% 
 			    (if null-label? #f "H S&lider") 0 10 ip2
 			    (lambda (s e)

src/mred/wrap/mred.ss

@@ -1928,7 +1928,9 @@
 		    (raise-type-error 'set-alignment "vertical alignment symbol: top, center, or bottom" v))
 		  (set-h h)
 		  (set-v (case v [(top) 'left] [(center) 'center] [(bottom) 'right])))]
-      [alignment (lambda (h v) (do-align h v (lambda (h) (set! h-align h)) (lambda (h) (set! v-align v))))]
+      [alignment (lambda (h v) 
+		   (do-align h v (lambda (h) (set! h-align h)) (lambda (h) (set! v-align v)))
+		   (force-redraw))]
       [get-alignment (lambda () (values h-align v-align))]
 
       ; redraw: redraws panel and all children