--- a/Form.st	Wed Mar 21 16:03:02 2018 +0100
+++ b/Form.st	Tue Mar 27 13:28:58 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
@@ -896,8 +894,13 @@
     ^nil
 !
 
-magnify:aRectangle by:scale smoothing:smooth
-    ^ ((Image fromSubForm:aRectangle in:self) magnifiedBy:scale) asFormOn:device.
+magnify:aRectangle by:scale smoothing:smoothBoolean
+    "Squeak compatibility:
+     a little inefficient hack: convert to image, then magnify,
+     then convert back"
+
+    ^ ((Image fromSubForm:aRectangle in:self) 
+            magnifiedBy:scale smooth:smoothBoolean) asFormOn:device.
 !
 
 pixelAt:aPoint