diff --git a/contrib/random-tester/random-tester.factor b/contrib/random-tester/random-tester.factor
index d18c861f08..456636ac36 100644
--- a/contrib/random-tester/random-tester.factor
+++ b/contrib/random-tester/random-tester.factor
@@ -244,7 +244,7 @@ SYMBOL: last
 
 : test-2integer>x-throws ( -- )
     [
-        random-integer , random-integer , math-throw-2 nth-rand ,
+        random-integer dup . , random-integer dup . , math-throw-2 nth-rand dup . ,
     ] [ ] make interp-compile-check-catch ;
 
 ! 1-arg tests
diff --git a/contrib/random-tester/random.factor b/contrib/random-tester/random.factor
index 7c7ec4e0ad..4abd1a0d46 100644
--- a/contrib/random-tester/random.factor
+++ b/contrib/random-tester/random.factor
@@ -34,7 +34,7 @@ SYMBOL: special-integers
 { } make \ special-integers set
 : special-integers ( -- seq ) \ special-integers get ;
 SYMBOL: special-floats
-[ { 0.0 } % e , pi , inf , -inf , 0/0. , epsilon , epsilon neg , ]
+[ { 0.0 } % e , pi , 1./0. , -1./0. , 0./0. , epsilon , epsilon neg , ]
 { } make \ special-floats set
 : special-floats ( -- seq ) \ special-floats get ;
 SYMBOL: special-complexes