--- a/Rectangle.st	Wed Jul 04 15:15:13 2018 +0200
+++ b/Rectangle.st	Wed Jul 04 15:24:02 2018 +0200
@@ -1197,13 +1197,14 @@
 printOn:aStream
     "print the receiver on aStream"
 
-    aStream nextPutAll:(self class name).
-    aStream nextPutAll:' origin:'.
+    aStream nextPut:$(.
     (self origin) printOn:aStream.
-    aStream nextPutAll:' extent:'.
-    (self extent) printOn:aStream
+    aStream nextPutAll:') extent: ('.
+    (self extent) printOn:aStream.
+    aStream nextPut:$).
 
-    "Modified: 29.5.1996 / 00:17:39 / cg"
+    "Modified: / 29-05-1996 / 00:17:39 / cg"
+    "Modified: / 04-07-2018 / 15:20:17 / stefan"
 !
 
 storeOn:aStream
@@ -2034,6 +2035,12 @@
     "Created: 8.5.1996 / 08:16:47 / cg"
 !
 
+hasShortPrintString
+    ^ true
+
+    "Created: / 04-07-2018 / 15:21:07 / stefan"
+!
+
 isRectangle
     "return true, if the receiver is some kind of rectangle"