--- a/UIObjectView.st	Tue Jun 07 12:14:55 2016 +0200
+++ b/UIObjectView.st	Wed Jun 08 11:41:18 2016 +0200
@@ -1724,9 +1724,10 @@
             bwWidth ~~ 0 ifTrue:[
                 color isNil ifTrue:[
                     "/ must force redraw of border
-                    color := aView borderColor.
-                    aView borderColor:(Color colorId:1).  "/ kludge to force a redraw
-                    aView borderColor:color.
+                    "/ color := aView borderColor.
+                    "/ aView borderColor:(Color colorId:1).  "/ kludge to force a redraw
+                    "/ aView borderColor:color.
+                    aView invalidate.
                 ].
                 w := w - bwWidth.
                 h := h - bwWidth.