--- a/Rectangle.st	Mon Feb 10 12:15:08 1997 +0100
+++ b/Rectangle.st	Mon Feb 10 12:18:07 1997 +0100
@@ -933,8 +933,8 @@
     (aPoint isMemberOf:SmallInteger) ifTrue:[
         "/ this is an stc optimization
         ^ Rectangle 
-            left:(left + amountPoint)
-            top:(top + amountPoint)
+            left:(left + aPoint)
+            top:(top + aPoint)
             width:width
             height:height
     ].
@@ -957,8 +957,8 @@
     (aPoint isMemberOf:SmallInteger) ifTrue:[
         "/ this is an stc optimization
         ^ Rectangle 
-            left:(left - amountPoint)
-            top:(top - amountPoint)
+            left:(left - aPoint)
+            top:(top - aPoint)
             width:width
             height:height
     ].
@@ -1449,5 +1449,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.49 1997-02-10 11:15:08 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.50 1997-02-10 11:18:07 cg Exp $'
 ! !