--- a/Magnitude.st	Tue Jun 05 18:20:22 2007 +0200
+++ b/Magnitude.st	Wed Jun 06 10:58:05 2007 +0200
@@ -9,7 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#Magnitude
@@ -51,6 +50,16 @@
     ^ self == Magnitude
 ! !
 
+!Magnitude methodsFor:'Compatibility-Squeak'!
+
+min:aMin max:aMax 
+    "similar to clampBetween:and:"
+
+    ^ (self min: aMin) max: aMax
+
+    "Created: / 06-06-2007 / 11:00:22 / cg"
+! !
+
 !Magnitude methodsFor:'comparing'!
 
 < aMagnitude
@@ -361,5 +370,5 @@
 !Magnitude class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.21 2005-06-27 10:20:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Magnitude.st,v 1.22 2007-06-06 08:58:05 cg Exp $'
 ! !