--- a/SortedCollection.st	Thu Jan 21 17:05:24 2016 +0100
+++ b/SortedCollection.st	Thu Jan 21 17:35:29 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -956,7 +954,9 @@
 !
 
 max
-    "Return the largest element."
+    "return the maximum value in the receiver collection,
+     redefined, since this can be easily computed.
+     Raises an error, if the receiver is empty."
 
     sortBlock == DefaultSortBlock ifTrue:[
         ^ self last
@@ -965,11 +965,14 @@
 
     "
      #(10 35 20 45 30 5) asSortedCollection max 
+     #() asSortedCollection max 
     "
 !
 
 min
-    "Return the smallest element."
+    "return the minimum value in the receiver collection,
+     redefined, since this can be easily computed.
+     Raises an error, if the receiver is empty."
 
     sortBlock == DefaultSortBlock ifTrue:[
         ^ self first