---
 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



_______________________________________________
Stumpwm-devel mailing list
Stumpwm-devel@nongnu.org
http://lists.nongnu.org/mailman/listinfo/stumpwm-devel

Reply via email to