diff --git a/ansi-tests/misc.lsp b/ansi-tests/misc.lsp
index 39bdea24cf38d485b9db455f3024ba09b45703c8..3b002fede728e40725257bc50b7574c0bf209786 100644
--- a/ansi-tests/misc.lsp
+++ b/ansi-tests/misc.lsp
@@ -10775,3 +10775,15 @@ Broken at C::WT-MAKE-CLOSURE.
 			  (space 1) (compilation-speed 3)))
        (logxor (ash 0 (min 90 0)) 0))))
   0)
+
+(deftest misc.601
+  (funcall
+   (compile
+    nil
+    '(lambda ()
+       (declare (notinline gcd))
+       (declare
+	(optimize (debug 3) (space 3) (safety 3)
+		  (compilation-speed 2) (speed 3)))
+       (logeqv 0 (gcd 0)))))
+  -1)