diff --git a/code/debug-info.lisp b/code/debug-info.lisp
index d0e29c39e248112794c4e6736fc611bac0536c00..bb4aa7eb403dbae8f6d44a0bedec2f0713ecfcbc 100644
--- a/code/debug-info.lisp
+++ b/code/debug-info.lisp
@@ -143,7 +143,8 @@
 	(start (fill-pointer vec)))
     (dotimes (i len)
       (vector-push-extend 0 vec))
-    (lisp::with-array-data ((data vec))
+    (lisp::with-array-data ((data vec) (ig1) (ig2))
+      (declare (ignore ig1 ig2))
       (%primitive byte-blt bits 0 data start (+ start len))))
   (undefined-value))