--- a/IdentitySet.st	Wed Apr 03 11:10:55 2013 +0200
+++ b/IdentitySet.st	Wed Apr 03 11:11:25 2013 +0200
@@ -68,8 +68,18 @@
 
 !IdentitySet methodsFor:'converting'!
 
+asIdentitySet 
+    "return the receiver as an IdentitySet"
+
+    "could be an instance of a subclass..."
+    self class == IdentitySet ifTrue:[
+        ^ self
+    ].
+    ^ super asIdentitySet
+!
+
 asNewIdentitySet
-    "make sure to return myself as a unique new set"
+    "make sure to return myself as a unique new IdentitySet"
 
     "could be an instance of a subclass..."
     self class == IdentitySet ifTrue:[
@@ -261,6 +271,6 @@
 !IdentitySet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.35 2013-03-28 23:19:39 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.36 2013-04-03 09:11:25 stefan Exp $'
 ! !