--- a/Set.st	Tue Apr 02 18:06:34 2013 +0200
+++ b/Set.st	Wed Apr 03 11:10:55 2013 +0200
@@ -694,6 +694,16 @@
         self assert:(s ~~ s asNewSet).
         self assert:(s = s asNewSet).
      "
+!
+
+asSet 
+    "return the receiver as a Set"
+
+    "could be an instance of a subclass..."
+    self class == Set ifTrue:[
+        ^ self
+    ].
+    ^ super asSet
 ! !
 
 !Set methodsFor:'copying'!
@@ -1252,11 +1262,11 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.119 2013-03-28 23:22:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.120 2013-04-03 09:10:55 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.119 2013-03-28 23:22:26 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Set.st,v 1.120 2013-04-03 09:10:55 stefan Exp $'
 ! !