--- a/Magnitude.st	Fri Mar 12 17:35:35 2004 +0100
+++ b/Magnitude.st	Fri Mar 12 19:00:51 2004 +0100
@@ -89,7 +89,7 @@
      This is only a lazy-typers helper for: ((something min:max) max:min)"
 
     (self > max) ifTrue:[^ max].
-    (self < min) ifTrue:[^ min].
+    (min > self) ifTrue:[^ min].
     ^ self
 
     "
@@ -118,7 +118,7 @@
 min:aMagnitude
     "return the receiver or the argument, whichever has lesser magnitude"
 
-    (self < aMagnitude) ifTrue:[^ self].
+    (aMagnitude > self) ifTrue:[^ self].
     ^ aMagnitude
 
     "
@@ -331,5 +331,5 @@
 !Magnitude class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.17 2002-06-19 12:08:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.18 2004-03-12 17:59:57 stefan Exp $'
 ! !