diff --git a/basis/math/floats/env/env-tests.factor b/basis/math/floats/env/env-tests.factor
index 0c38d69ea9..91b699130a 100644
--- a/basis/math/floats/env/env-tests.factor
+++ b/basis/math/floats/env/env-tests.factor
@@ -106,7 +106,7 @@ set-default-fp-env
     append '[ _ _ with-fp-traps ] ;
 
 : test-traps-compiled ( traps inputs quot -- quot' )
-    swapd '[ _ [ _ _ with-fp-traps ] compile-call ] ;
+    swapd '[ @ [ _ _ with-fp-traps ] compile-call ] ;
 
 { +fp-zero-divide+ }       [ 1.0 0.0 ] [ /f ] test-traps must-fail
 { +fp-inexact+ }           [ 1.0 3.0 ] [ /f ] test-traps must-fail