diff --git a/tests.lisp b/tests.lisp
index 603157b093e4a66613b366d206eb4bdadb0af67c..9eb24541031aa7e363b2723f7fca86e13f01358a 100644
--- a/tests.lisp
+++ b/tests.lisp
@@ -913,6 +913,19 @@
   t
   t)
 
+#+sbcl
+(deftest gaussian-random.2
+    (handler-case
+        (sb-ext:with-timeout 2
+          (progn
+            (loop
+              :repeat 10000
+              :do (gaussian-random 0 nil))
+            'done))
+      (sb-ext:timeout ()
+        'timed-out))
+  'done)
+
 (deftest iota.1
     (iota 3)
   (0 1 2))