diff --git a/backends/GenerateCBased.hs b/backends/GenerateCBased.hs
index d5cb3a3..b7c175a 100644
--- a/backends/GenerateCBased.hs
+++ b/backends/GenerateCBased.hs
@@ -60,7 +60,7 @@ type CGen' = StateT (Either [String] Handle) PassM
 type CGen = ReaderT GenOps CGen'
 
 instance Die CGen where
-  dieReport = throwError
+  dieReport err = lift $ lift $ dieReport err
   
 instance CSMR CGen' where
   getCompState = lift getCompState
diff --git a/frontends/ParseOccam.hs b/frontends/ParseOccam.hs
index 2388b9a..6a9c7ae 100644
--- a/frontends/ParseOccam.hs
+++ b/frontends/ParseOccam.hs
@@ -2021,7 +2021,7 @@ parseOccamProgram toks
     =  do cs <- get
           (p, ws, cs') <- runTockParser toks sourceFile cs
           put cs'
-          tell ws
+          mapM_ warnReport ws
           return p
 --}}}