--- a/WindowingTransformation.st	Mon Apr 19 13:31:37 2004 +0200
+++ b/WindowingTransformation.st	Fri May 07 14:03:59 2004 +0200
@@ -271,7 +271,7 @@
     aScale isNil ifTrue:[
         scale := aScale
     ] ifFalse:[
-        scale = 1 ifTrue:[
+        aScale = 1 ifTrue:[
             scale := nil
         ] ifFalse:[
             scale := aScale asPoint.
@@ -287,7 +287,7 @@
     aScale isNil ifTrue:[
         scale := aScale
     ] ifFalse:[
-        scale = 1 ifTrue:[
+        aScale = 1 ifTrue:[
             scale := nil
         ] ifFalse:[
             scale := aScale asPoint.
@@ -668,5 +668,5 @@
 !WindowingTransformation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.21 2001-10-18 16:52:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/WindowingTransformation.st,v 1.22 2004-05-07 12:03:59 stefan Exp $'
 ! !