diff --git a/tests/issues.lisp b/tests/issues.lisp
index 01db16b3ebc3717c778425ce403864f46be60daf..d0fb8bf303ee2fd81a2026a6e877283f03f9fa42 100644
--- a/tests/issues.lisp
+++ b/tests/issues.lisp
@@ -443,3 +443,10 @@
 		    (write (read-from-string "`(,@vars ,@vars)")
 			   :pretty t
 			   :stream s)))))
+
+(define-test issue.59
+  (:tag :issues)
+  (let ((f (compile nil #'(lambda (z)
+			    (declare (type (double-float -2d0 0d0) z))
+			    (nth-value 2 (decode-float z))))))
+    (assert-equal -1d0 (funcall f -1d0))))