--- a/KeyedCollection.st	Sun Oct 19 13:12:20 2008 +0200
+++ b/KeyedCollection.st	Sun Oct 19 13:12:32 2008 +0200
@@ -59,6 +59,10 @@
 !KeyedCollection class methodsFor:'queries'!
 
 isAbstract
+    "Return if this class is an abstract class.
+     True is returned for KeyedCollection here; false for subclasses.
+     Abstract subclasses must redefine again."
+
     ^ self == KeyedCollection
 ! !
 
@@ -219,5 +223,5 @@
 !KeyedCollection class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.5 2007-04-27 08:25:05 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/KeyedCollection.st,v 1.6 2008-10-19 11:12:32 cg Exp $'
 ! !