--- a/RandomGenerator.st	Tue Mar 30 15:39:21 2010 +0200
+++ b/RandomGenerator.st	Wed Mar 31 12:37:41 2010 +0200
@@ -100,7 +100,8 @@
     ].
 
     [
-        result := OperatingSystem randomBytesInto:(ByteArray new:1).
+        "fetch a random byte - and check if the OS generator works"
+        result := OperatingSystem randomBytesInto:1.
     ] on:PrimitiveFailure do:[:ex| ].
 
     result notNil ifTrue:[
@@ -396,11 +397,11 @@
 !RandomGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.7 2010-03-30 13:39:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.8 2010-03-31 10:37:41 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.7 2010-03-30 13:39:21 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomGenerator.st,v 1.8 2010-03-31 10:37:41 stefan Exp $'
 ! !
 
 RandomGenerator initialize!