diff --git a/lib/src/translator/ExtensionsChi.gf b/lib/src/translator/ExtensionsChi.gf
index 0b509782d..da11323d5 100644
--- a/lib/src/translator/ExtensionsChi.gf
+++ b/lib/src/translator/ExtensionsChi.gf
@@ -95,7 +95,7 @@ lin
   CompS s = insertObj s (predV copula []) ; ----
 
 
-  CompQS qs = insertObj qs (predV copula []) ; ----
+  CompQS qs = insertObj (ss (qs.s ! False)) (predV copula []) ; ----
   CompVP ant p vp = insertObj (ss (infVP vp)) (predV copula []) ; ----
 
 {-