diff --git a/basis/compiler/tests/x87-regression.factor b/basis/compiler/tests/x87-regression.factor
new file mode 100644
index 0000000000..9692f787f2
--- /dev/null
+++ b/basis/compiler/tests/x87-regression.factor
@@ -0,0 +1,10 @@
+IN: compiler.tests.x87-regression
+USING: math.floats.env alien.syntax alien.c-types compiler.test
+tools.test kernel math ;
+
+LIBRARY: libm
+FUNCTION: double sqrt ( double x ) ;
+
+[ { } ] [
+    4.0 [ [ 100 [ dup sqrt drop ] times ] collect-fp-exceptions nip ] compile-call
+] unit-test