--- a/UIPainter.st	Sat Feb 07 23:27:57 1998 +0100
+++ b/UIPainter.st	Sat Feb 07 23:32:23 1998 +0100
@@ -3230,7 +3230,8 @@
     painter gridParameters:gridPara.
     painter gridAlign:(bindings at:#alignToGrid) value.
     painter gridShown:(bindings at:#showGrid) value.
-    painter clear
+    painter clear.
+    painter clear.
 
 ! !