--- a/Magnitude.st	Mon Mar 24 12:14:37 2014 +0100
+++ b/Magnitude.st	Mon Mar 24 12:28:33 2014 +0100
@@ -130,6 +130,12 @@
     ^ greaterBlock value
 !
 
+hash
+    "instances, for which #= answers true must answer the same hash"
+
+    ^ self subclassResponsibility
+!
+
 max:aMagnitude
     "return the receiver or the argument, whichever has greater magnitude"
 
@@ -407,6 +413,6 @@
 !Magnitude class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.26 2013-06-05 11:24:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.27 2014-03-24 11:28:33 stefan Exp $'
 ! !