--- a/OrderedDictionary.st	Mon Jul 17 17:25:16 2017 +0200
+++ b/OrderedDictionary.st	Mon Jul 17 17:27:50 2017 +0200
@@ -306,7 +306,7 @@
     "Return the first value of the receiver.  
      Provide an error notification if the receiver contains no elements."
 
-    ^ (self associationAt: (order first)) value
+    ^ self firstAssociation value
 
     "
      OrderedDictionary new first
@@ -317,7 +317,7 @@
      (OrderedDictionary new at:'one' put:1; yourself) firstAssociation
     "
 
-    "Modified (comment): / 17-07-2017 / 17:21:54 / cg"
+    "Modified: / 17-07-2017 / 17:27:27 / cg"
 !
 
 firstAssociation
@@ -401,7 +401,7 @@
     "Return the last value of the receiver. 
      Provide an error notification if the receiver contains no elements."
 
-    ^ self associationAt: (order last) value
+    ^ self lastAssociation value
 
     "
      OrderedDictionary new last
@@ -411,7 +411,7 @@
      (OrderedDictionary new at:'one' put:1; yourself) lastValue
     "
 
-    "Modified (comment): / 17-07-2017 / 17:23:03 / cg"
+    "Modified: / 17-07-2017 / 17:27:10 / cg"
 !
 
 lastAssociation