diff --git a/run-random-type-tests.lisp b/run-random-type-tests.lisp
index 1afea11b4a741e56074877e477f516fc1507144a..69f95893a5ba0beb5848e6e6ae2ccf6319608cb4 100644
--- a/run-random-type-tests.lisp
+++ b/run-random-type-tests.lisp
@@ -80,6 +80,8 @@ test-types shows the error for every pair
             actual-size actual-variables actual-iterations (lisp-implementation-type))
     (test-random-integer-forms actual-size actual-variables actual-iterations)))
 
+#+clasp (ext:quit 0)
+
 #|
 4) Additional testing can be done with test-types and test-type-triples. The latter has its own pruner, prune-type-triple.