diff --git a/grammars/video/User/specUserSwe.gf b/grammars/video/User/specUserSwe.gf
index cc3018c0a..b5ac0aa86 100644
--- a/grammars/video/User/specUserSwe.gf
+++ b/grammars/video/User/specUserSwe.gf
@@ -4,6 +4,8 @@
 
 concrete specUserSwe of specUser = specificSwe, genUserSwe ** {
 
+flags startcat=DMove ;
+
 lin 
 --- Answers in request list
 vcr_add_rec_job_args4 chts wdts stts etts = {s = 
diff --git a/src/GF/Infra/ReadFiles.hs b/src/GF/Infra/ReadFiles.hs
index 380c0cfb5..8f6b5c971 100644
--- a/src/GF/Infra/ReadFiles.hs
+++ b/src/GF/Infra/ReadFiles.hs
@@ -116,7 +116,8 @@ needCompile opts headers sfiles0 = paths $ res $ mark $ iter changed where
     let us = uses f in
     if not (all noComp us) then
       fp else 
-    if (elem (typ f) [MTyIncomplete, MTyIncResource] || 
+    if (elem (typ f) [] ---- MTyIncomplete, MTyIncResource]
+        || 
         (not (null us) && all isAux us)) then
       (f,(p,CSDont)) else
       fp