From 0150d867087b6a4a00354044ef4935252eba25f1 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 28 Feb 2016 19:23:11 -0800
Subject: [PATCH] Fix typos.

---
 src/runtime/random.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/runtime/random.scm b/src/runtime/random.scm
index 0219a54b1..2545829a0 100644
--- a/src/runtime/random.scm
+++ b/src/runtime/random.scm
@@ -175,14 +175,14 @@ USA.
     s))
 
 (define (random-source-make-integers source)
-  (get-random-state source 'RANDOM-SOURCE-MAKE-INTEGERS)
+  (guarantee-random-state source 'RANDOM-SOURCE-MAKE-INTEGERS)
   (lambda (modulus)
     (if (int:> modulus 0)
 	(%random-integer modulus source)
 	(error:bad-range-argument modulus #f))))
 
 (define (random-source-make-reals source #!optional unit)
-  (get-random-state source 'RANDOM-SOURCE-MAKE-REALS)
+  (guarantee-random-state source 'RANDOM-SOURCE-MAKE-REALS)
   (let ((unit
 	 (if (default-object? unit)
 	     .5
-- 
2.25.1