diff --git a/extra/combinators/lib/lib-tests.factor b/extra/combinators/lib/lib-tests.factor
index aa7fc004c1..43385b911d 100644
--- a/extra/combinators/lib/lib-tests.factor
+++ b/extra/combinators/lib/lib-tests.factor
@@ -1,5 +1,5 @@
 USING: combinators.lib kernel math math.ranges random sequences
-tools.test ;
+tools.test inference continuations arrays vectors ;
 IN: temporary
 
 [ 5 ] [ [ 10 random ] [ 5 = ] generate ] unit-test
@@ -10,25 +10,26 @@ IN: temporary
 [ f ] [ { 0 1 1 2 3 5 } all-unique? ] unit-test
 [ t ] [ { 0 1 2 3 4 5 } all-unique? ] unit-test
 
+: infers? [ infer drop ] curry catch not ;
 
 [ { 910 911 912 } ] [ 10 900 3 [ + + ] map-with2 ] unit-test
 { 6 2 } [ 1 2 [ 5 + ] dip ] unit-test
 { 6 2 1 } [ 1 2 1 [ 5 + ] dipd ] unit-test
-{ t } [ [ [ 99 ] 1 2 3 4 5 5 nslip ] compile-quot compiled? ] unit-test
+{ t } [ [ [ 99 ] 1 2 3 4 5 5 nslip ] infers? ] unit-test
 { 99 1 2 3 4 5 } [ [ 99 ] 1 2 3 4 5 5 nslip ] unit-test
-{ t } [ [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] compile-quot compiled? ] unit-test
+{ t } [ [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] infers? ] unit-test
 { 2 1 2 3 4 5 } [ 1 2 3 4 5 [ drop drop drop drop drop 2 ] 5 nkeep ] unit-test
 [ [ 1 2 3 + ] ] [ 1 2 3 [ + ] 3 ncurry ] unit-test
-{ t } [ [ 1 2 { 3 4 } [ + + ] 2 map-withn ] compile-quot compiled? ] unit-test
+{ t } [ [ 1 2 { 3 4 } [ + + ] 2 map-withn ] infers? ] unit-test
 { { 6 7 } } [ 1 2 { 3 4 } [ + + ] 2 map-withn ] unit-test
 { { 16 17 18 19 20 } } [ 1 2 3 4 { 6 7 8 9 10 } [ + + + + ] 4 map-withn ] unit-test
-{ t } [ [ 1 2 { 3 4 } [ + + drop ] 2 each-withn  ] compile-quot compiled? ] unit-test
+{ t } [ [ 1 2 { 3 4 } [ + + drop ] 2 each-withn  ] infers? ] unit-test
 { 13 } [ 1 2 { 3 4 } [ + + ] 2 each-withn + ] unit-test
 [ 1 1 2 2 3 3 ] [ 1 2 3 [ dup ] 3apply ] unit-test
 [ 1 4 9 ] [ 1 2 3 [ sq ] 3apply ] unit-test
-[ t ] [ [ [ sq ] 3apply ] compile-quot compiled? ] unit-test
+[ t ] [ [ [ sq ] 3apply ] infers? ] unit-test
 [ { 1 2 } { 2 4 } { 3 8 } { 4 16 } { 5 32 } ] [ 1 2 3 4 5 [ dup 2^ 2array ] 5 napply ] unit-test
-[ t ] [ [ [ dup 2^ 2array ] 5 napply ] compile-quot compiled? ] unit-test
+[ t ] [ [ [ dup 2^ 2array ] 5 napply ] infers? ] unit-test
 
 ! &&
 
diff --git a/extra/math/ranges/ranges-tests.factor b/extra/math/ranges/ranges-tests.factor
index f70f70ad24..98a7525910 100644
--- a/extra/math/ranges/ranges-tests.factor
+++ b/extra/math/ranges/ranges-tests.factor
@@ -1,4 +1,4 @@
-USING: math.ranges sequences tools.test ;
+USING: math.ranges sequences tools.test arrays ;
 IN: temporary
 
 [ { } ] [ 1 1 (a,b) >array ] unit-test