--- a/ScaleTransform.st	Thu Jan 22 14:37:22 2015 +0100
+++ b/ScaleTransform.st	Thu Jan 22 15:23:48 2015 +0100
@@ -84,6 +84,9 @@
             scale := nil
         ] ifFalse:[
             scale := aScale asPoint.
+            (scale x = 1 and:[scale y = 1]) ifTrue:[
+                scale := nil
+            ].
         ]
     ].
 
@@ -262,7 +265,7 @@
     ] ifFalse:[
         newScale := scale * aScale
     ].
-    scale := newScale.
+    self scale:newScale.
 !
 
 scaledBy:aScale 
@@ -305,10 +308,10 @@
 !ScaleTransform class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/ScaleTransform.st,v 1.2 2015-01-22 13:37:02 az Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ScaleTransform.st,v 1.3 2015-01-22 14:23:48 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/ScaleTransform.st,v 1.2 2015-01-22 13:37:02 az Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/ScaleTransform.st,v 1.3 2015-01-22 14:23:48 cg Exp $'
 ! !