diff --git a/src/compiler/new-assem.lisp b/src/compiler/new-assem.lisp
index 5492eb7cdd5f183ed91dc50f44458c5076bf4651..d9fdb32fb4343980652fe7b2cbef1c8726fc7ea1 100644
--- a/src/compiler/new-assem.lisp
+++ b/src/compiler/new-assem.lisp
@@ -1614,7 +1614,7 @@
 				,arg)
 			  (svref bytes end-byte))))))))))
       (unless (= overall-mask -1)
-	(error (intl:gettext "There are holes.")))
+	(error (intl:gettext "There are holes in emitter ~S.") name))
       (let ((forms nil))
 	(dotimes (i num-bytes)
 	  (let ((pieces (svref bytes i)))