--- a/Random.st	Wed Jun 14 12:06:11 2006 +0200
+++ b/Random.st	Mon Jun 19 19:43:55 2006 +0200
@@ -416,6 +416,26 @@
     "Modified: 1.4.1997 / 22:42:53 / cg"
 !
 
+nextCharacters:count
+    "get the next cnt printable characters.
+     We answer characters in the ascii range (codepoints 32 - 127)"
+
+    |res|
+
+    res := String uninitializedNew:count.
+
+    1 to:count do:[:i|
+        self step.
+        res at:i put:(Character value:(seed \\ 95 + 32)).
+    ].
+
+    ^ res
+
+    "
+      Random new nextCharacters:8
+    "
+!
+
 nextInteger
     "return the next integral random number,
      in the range 0 .. 16r3FFFFFFF.
@@ -550,5 +570,5 @@
 !Random class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.35 2003-05-15 15:46:13 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.36 2006-06-19 17:43:55 stefan Exp $'
 ! !