diff --git a/common/CompState.hs b/common/CompState.hs
index a9cd109..b71bcf9 100644
--- a/common/CompState.hs
+++ b/common/CompState.hs
@@ -84,7 +84,7 @@ instance Show (A.Structured -> A.Structured) where
 
 emptyState :: CompState
 emptyState = CompState {
-    csMode = ModeCompile,
+    csMode = ModeFull,
     csBackend = BackendC,
     csFrontend = FrontendOccam,
     csVerboseLevel = 0,