diff --git a/lib/Text/TEI.hs b/lib/Text/TEI.hs
index ba66a30a8c64c3cc1c4774bcbd281b3d5fbc817a..558a61643279ec47e574039186a3d4571a0bdf1d 100644
--- a/lib/Text/TEI.hs
+++ b/lib/Text/TEI.hs
@@ -95,7 +95,8 @@ text unitName txmText body =
       [ "uid" .= uid txmText
       , "book" .= (show . book $ get txmText)
       , "author" .= (unpack . formatList . authors $ get txmText)
-      , "domains" .= (unpack . formatList . domains $ get txmText) ]
+      , "domains" .= (unpack . formatList . domains $ get txmText)
+      , "subCorpus" .= (unpack . formatList . subCorpus $ get txmText) ]
 
 (.=) :: ArrowXml a => String -> String -> a b XmlTree
 key .= value = attr key (txt value)