--- a/RangeAdaptor.st	Wed Jul 22 13:16:57 1998 +0200
+++ b/RangeAdaptor.st	Mon Jul 27 09:53:45 1998 +0200
@@ -164,18 +164,23 @@
 !RangeAdaptor methodsFor:'actions'!
 
 decrement
+    "deccrement my value by grid"
 
     (grid notNil and:[subject notNil]) ifTrue:[
-        self value:(subject value - grid max:rangeStart)
+        self value:((subject value - grid) max:rangeStart)
     ]
 
+    "Modified: / 27.7.1998 / 09:53:37 / cg"
 !
 
 increment
+    "increment my value by grid"
 
     (grid notNil and:[subject notNil]) ifTrue:[
-        self value:(subject value + grid min:rangeStop)
+        self value:((subject value + grid) min:rangeStop)
     ]
+
+    "Modified: / 27.7.1998 / 09:53:28 / cg"
 ! !
 
 !RangeAdaptor methodsFor:'change & update'!
@@ -245,5 +250,5 @@
 !RangeAdaptor class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/RangeAdaptor.st,v 1.1 1997-10-11 14:32:02 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/RangeAdaptor.st,v 1.2 1998-07-27 07:53:45 cg Exp $'
 ! !