diff --git a/extract/ExtSubtree.c b/extract/ExtSubtree.c
index b3da7956..75418ec6 100644
--- a/extract/ExtSubtree.c
+++ b/extract/ExtSubtree.c
@@ -908,6 +908,7 @@ extSubstrateFunc(scx, ha)
 	    for (y = use->cu_ylo; y <= use->cu_yhi; y++)
 		extHierSubstrate(ha, use, x, y);
     }
+    use->cu_flags |= CU_SUB_EXTRACTED;
     return (2);
 }