--- a/Random.st	Tue Jul 16 09:57:18 2013 +0200
+++ b/Random.st	Sat Jul 20 02:52:53 2013 +0200
@@ -332,6 +332,12 @@
     "
      Random new nextIntFrom:5 to:10
     "
+!
+
+seed: anInteger
+    self setSeed: anInteger.
+
+    "Created: / 20-07-2013 / 01:52:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !Random methodsFor:'accessing-reading'!
@@ -642,10 +648,10 @@
 !Random class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.45 2013-07-04 15:44:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.46 2013-07-20 00:52:53 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.45 2013-07-04 15:44:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/Random.st,v 1.46 2013-07-20 00:52:53 vrany Exp $'
 ! !