diff --git a/grid.lisp b/grid.lisp
index ac6c2c9..fd15188 100644
--- a/grid.lisp
+++ b/grid.lisp
@@ -112,7 +112,7 @@
           (t (aref (grid-matrix g) row col)))))
 
 (defmethod random-cell ((g grid))
-  (aref (grid-matrix g) (random (grid-rows g)) (random (grid-cols g))))
+  (aref (grid-matrix g) (random (grid-rows g) (make-random-state t)) (random (grid-cols g) (make-random-state t))))
 
 (defmethod size ((g grid))
   (* (grid-rows g) (grid-cols g)))