--- a/Set.st	Thu Feb 25 22:58:21 2010 +0000
+++ b/Set.st	Mon Mar 08 21:39:02 2010 +0000
@@ -244,6 +244,14 @@
 
 !Set methodsFor:'accessing'!
 
+addFirst:anObject
+    "add the argument, anObject to the receiver.
+     If the receiver is ordered, the new element will be added at the beginning.
+     An error is raised here - it does not make sense for unordered collections"
+
+    ^ self shouldNotImplement
+!
+
 at:index
     "report an error: at: is not allowed for Sets"
 
@@ -288,6 +296,21 @@
 
     "Created: 20.3.1997 / 20:34:07 / cg"
     "Modified: 20.3.1997 / 20:35:49 / cg"
+!
+
+removeLast
+    "remove the last element from the receiver.
+     Return the removed element.
+     An error is raised here - it does not make sense for unordered collections"
+
+    ^ self shouldNotImplement
+!
+
+reverseDo:aBlock
+    "evaluate the argument, aBlock for each element in reverse order.
+     An error is raised here - it does not make sense for unordered collections"
+
+    ^ self shouldNotImplement
 ! !
 
 !Set methodsFor:'adding & removing'!
@@ -1133,13 +1156,14 @@
 !Set class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Set.st 10480 2009-12-02 21:30:55Z vranyj1 $'
+    ^ '$Id: Set.st 10505 2010-03-08 21:39:02Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Set.st,v 1.104 2009/10/26 13:15:45 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Set.st,v 1.105 2010/02/26 10:53:48 cg Exp §'
 ! !
 
 Set initialize!
 
 
+