--- a/RandomBlumBlumShub.st	Sat Feb 15 00:45:47 2020 +0100
+++ b/RandomBlumBlumShub.st	Sat Feb 15 00:46:26 2020 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2014 Claus Gittinger
               All Rights Reserved
@@ -62,16 +64,11 @@
 !RandomBlumBlumShub class methodsFor:'instance creation'!
 
 new
-    ^ self basicNew 
-        initialize;
-        seed:(Random randomSeed)
+    ^ self new:(Random randomSeed)
 !
 
 new:seed
-    self isSupported ifFalse:[ self error:'this generator needs a cpu with rdgen instruction' ].
-    ^ self basicNew 
-        initialize;
-        seed:seed
+    ^ self basicNew initialize; seed:seed
 ! !
 
 !RandomBlumBlumShub methodsFor:'initialization'!