diff --git a/basis/math/floats/env/env.factor b/basis/math/floats/env/env.factor
index 6a8110c4c1..91419c1fdf 100644
--- a/basis/math/floats/env/env.factor
+++ b/basis/math/floats/env/env.factor
@@ -18,6 +18,15 @@ UNION: fp-exception
     +fp-zero-divide+
     +fp-inexact+ ;
 
+CONSTANT: all-fp-exceptions
+    {
+        +fp-invalid-operation+
+        +fp-overflow+
+        +fp-underflow+
+        +fp-zero-divide+
+        +fp-inexact+
+    }
+
 SINGLETONS:
     +round-nearest+
     +round-down+