--- a/RandomTT800.st	Tue Sep 23 22:15:39 2014 +0200
+++ b/RandomTT800.st	Wed Oct 01 13:06:21 2014 +0200
@@ -327,6 +327,12 @@
       is: '16rFFFFFFFF' "
 !
 
+nextBoolean
+    " Answer the next boolean"
+
+    ^ self nextInteger > 16r7FFFFFFF
+!
+
 seed: anInteger
     x := self class initialSeeds.
 
@@ -406,5 +412,6 @@
 !RandomTT800 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.3 2001-11-17 11:08:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/RandomTT800.st,v 1.4 2014-10-01 11:06:21 cg Exp $'
 ! !
+