diff --git a/compiler/debug.lisp b/compiler/debug.lisp
index ec8771c71cad1dbf7738d2990a61d369eb0d4fa7..2c1280e113f9e4686fc9890de2a2f2d89b14bdc8 100644
--- a/compiler/debug.lisp
+++ b/compiler/debug.lisp
@@ -788,7 +788,9 @@
 ;;;
 (defun check-tn-conflicts (component)
   (do-packed-tns (tn component)
-    (unless (or (tn-reads tn) (tn-writes tn))
+    (unless (or (not (eq (tn-kind tn) :normal))
+		(tn-reads tn)
+		(tn-writes tn))
       (barf "No references to ~S." tn))
 
     (unless (tn-sc tn) (barf "~S has no SC." tn))
@@ -797,7 +799,8 @@
 	  (kind (tn-kind tn)))
       (cond
        ((eq kind :component)
-	(unless (member tn (ir2-component-component-tns component))
+	(unless (member tn (ir2-component-component-tns
+			    (component-info component)))
 	  (barf "~S not in Component-TNs for ~S." tn component)))
        ((eq kind :environment)
 	(let ((env (tn-environment tn)))