[STUMP] [PATCH 2/2] Actually making the quotes random. The ones at the end will come less often afaik because of the 1/n distribution

[Raffael Mancini]

---
 primitives.lisp |    1 +
 1 files changed, 1 insertions(+), 0 deletions(-)

diff --git a/primitives.lisp b/primitives.lisp
index 4007b8f..8b97735 100644
--- a/primitives.lisp
+++ b/primitives.lisp
@@ -967,6 +967,7 @@ suppress.")
   "Slogans from the stumpwm webpage")
 
 (defun random-slogan ()
+  (setf *random-state* (make-random-state t))
   (nth (random (length *slogans*)) *slogans*))
 
 (defvar *default-package* (find-package '#:stumpwm-user)
-- 
1.6.1.2