diff --git a/compiler/uniq/src/sharing.rs b/compiler/uniq/src/sharing.rs
index 6d9aaa1826..e81a621c71 100644
--- a/compiler/uniq/src/sharing.rs
+++ b/compiler/uniq/src/sharing.rs
@@ -495,7 +495,13 @@ impl FieldAccess {
     }
 
     pub fn list_seen() -> Self {
-        Self::default()
+        use Mark::*;
+        use Usage::*;
+
+        let mut result = Self::default();
+        result.fields.insert(LIST_ELEM.into(), Simple(Seen));
+
+        result
     }
 
     pub fn list_update() -> Self {