Author: Sergei Golovan
Description: Patch fixes buffer underrun (calling randinit() with one
 parameter instead of two.
Debian-Bug: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=748163
Last-Modified: Thu, 15 May 2014 08:19:21 +0400

--- a/generic/random.c
+++ b/generic/random.c
@@ -526,7 +526,7 @@
      */
     seed = time(NULL) + ((long)Tcl_GetCurrentThread() << 12);
     memcpy(&instance->state.randrsl, &seed, sizeof(seed));
-    randinit(&instance->state);
+    randinit(&instance->state, TRUE);
     
     Tcl_RegisterChannel  (interp, chan);
     Tcl_SetChannelOption (interp, chan, "-buffering", "none");