--- a/Object.st	Wed Oct 10 00:45:38 2018 +0200
+++ b/Object.st	Wed Oct 10 18:22:19 2018 +0200
@@ -259,6 +259,7 @@
     "Modified: / 4.8.1999 / 08:54:06 / stefan"
 ! !
 
+
 !Object class methodsFor:'Compatibility-ST80'!
 
 rootError
@@ -497,6 +498,7 @@
     InfoPrinting := aBoolean
 ! !
 
+
 !Object class methodsFor:'queries'!
 
 isAbstract
@@ -520,6 +522,10 @@
 
 
 
+
+
+
+
 !Object methodsFor:'Compatibility-GNU'!
 
 display
@@ -536,6 +542,7 @@
     self printCR
 ! !
 
+
 !Object methodsFor:'Compatibility-ST80'!
 
 isMetaclass
@@ -620,6 +627,7 @@
     self errorKeyNotFound:aKey.
 ! !
 
+
 !Object methodsFor:'accessing'!
 
 _at:index
@@ -1716,6 +1724,8 @@
     "
 ! !
 
+
+
 !Object methodsFor:'attributes access'!
 
 objectAttributeAt:attributeKey
@@ -1860,6 +1870,8 @@
 ! !
 
 
+
+
 !Object methodsFor:'change & update'!
 
 broadcast:aSelectorSymbol
@@ -7363,6 +7375,7 @@
     "
 ! !
 
+
 !Object methodsFor:'printing & storing'!
 
 _errorPrint
@@ -8356,9 +8369,13 @@
 
 speciesForCompare
     "return a class to determine if two objects can be compared.
-     The fallback here is my species; only redefined by some timestamp classes"
+     The fallback here is my species; only redefined by some timestamp classes.
+     FIXME: not all classes (actually currently only one) use this in their #= method
+     (i.e. it needs to be done eg in Dictionary as well)"
      
     ^ self species
+
+    "Modified (comment): / 10-10-2018 / 18:22:05 / Claus Gittinger"
 !
 
 speciesForCopy
@@ -8375,6 +8392,7 @@
     ^ self
 ! !
 
+
 !Object methodsFor:'secure message sending'!
 
 ?:selector
@@ -9037,6 +9055,7 @@
     "Modified: / 30-07-2018 / 09:02:13 / Stefan Vogel"
 ! !
 
+
 !Object methodsFor:'synchronized evaluation'!
 
 freeSynchronizationSemaphore
@@ -10884,6 +10903,9 @@
     ^ aVisitor visitObject:self with:aParameter
 ! !
 
+
+
+
 !Object class methodsFor:'documentation'!
 
 version