diff --git a/src/tests/trig.lisp b/src/tests/trig.lisp
index a0c8c1501a30ba72b4c5682d2b8fa2e13f9f6926..9555b11f343aef0d78d71a6dec32a1bbe0dda789 100644
--- a/src/tests/trig.lisp
+++ b/src/tests/trig.lisp
@@ -142,6 +142,10 @@
   -4.08066388841804238545143494525595117765084022768d-1)
 
 
+(rt:deftest sincos.0
+    (multiple-value-list (kernel::%sincos -0d0))
+  (-0d0 1d0))
+
 (rt:deftest sincos.1
     (let (results)
       (dotimes (k 1000)