--- a/Character.st	Mon Jul 04 17:46:02 2011 +0200
+++ b/Character.st	Mon Jul 04 19:35:39 2011 +0200
@@ -484,6 +484,12 @@
     ^ Character codePoint:9
 ! !
 
+!Character class methodsFor:'others'!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.140 2011-07-04 17:35:39 cg Exp $'
+! !
+
 !Character class methodsFor:'primitive input'!
 
 fromUser
@@ -1368,6 +1374,15 @@
     ^ Interval from:self to:(aMagnitude \\ 16r3FFFFFFF)
 !
 
+to:aMagnitude by:inc
+    "Return an Interval over the characters from the receiver to <aMagnitude>.
+     Wrap <aMagnitude> if it is not a legal Character value. (JS)"
+
+    ^ Interval from:self to:(aMagnitude \\ 16r3FFFFFFF) by:inc
+
+    "Created: / 04-07-2011 / 19:35:15 / cg"
+!
+
 utf8Encoded
     "convert a character to its UTF-8 encoding.
      this returns a String"
@@ -2771,5 +2786,5 @@
 !Character class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.139 2009-09-16 19:22:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Character.st,v 1.140 2011-07-04 17:35:39 cg Exp $'
 ! !