1 files changed, 1 insertions, 3 deletions

diff --git a/lisp/play/dissociate.el b/lisp/play/dissociate.el
index 494d83b3b58..6939f320f79 100644
--- a/lisp/play/dissociate.el
+++ b/lisp/play/dissociate.el
@@ -88,9 +88,7 @@ Default is 2."
                                          (funcall move-function
                                                   (- move-amount)))
                                   (point))))
-           (let (ranval)
-             (while (< (setq ranval (random)) 0))
-             (goto-char (1+ (% ranval (1- (point-max))))))
+           (goto-char (1+ (random (1- (point-max)))))
            (or (funcall search-function overlap nil t)
                (let ((opoint (point)))
                  (goto-char 1)