--- a/Rectangle.st	Tue May 28 13:29:43 1996 +0200
+++ b/Rectangle.st	Wed May 29 00:41:19 1996 +0200
@@ -852,8 +852,10 @@
     aStream nextPutAll:(self class name).
     aStream nextPutAll:' origin:'.
     (self origin) printOn:aStream.
-    aStream nextPutAll:' corner:'.
-    (self corner) printOn:aStream
+    aStream nextPutAll:' extent:'.
+    (self extent) printOn:aStream
+
+    "Modified: 29.5.1996 / 00:17:39 / cg"
 !
 
 storeOn:aStream
@@ -864,9 +866,11 @@
     aStream nextPutAll:(self class name).
     aStream nextPutAll:' origin:'.
     (self origin) storeOn:aStream.
-    aStream nextPutAll:' corner:'.
-    (self corner) storeOn:aStream.
+    aStream nextPutAll:' extent:'.
+    (self extent) storeOn:aStream.
     aStream nextPut:$)
+
+    "Modified: 29.5.1996 / 00:17:42 / cg"
 ! !
 
 !Rectangle methodsFor:'queries'!
@@ -1386,5 +1390,5 @@
 !Rectangle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.43 1996-05-12 23:06:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Rectangle.st,v 1.44 1996-05-28 22:41:19 cg Exp $'
 ! !