@@ -131,7 +131,9 @@ instance Monad Compiler where
131131 res' <- unCompiler (f x) r
132132 return $ case res' of
133133 CompilerDone y w' -> CompilerDone y (w `mappend` w')
134− CompilerSnapshot s c' -> CompilerSnapshot s c'
134+ CompilerSnapshot s c' -> CompilerSnapshot s $ do
135+ compilerTell w -- Save dependencies!
136+ c'
135137 CompilerError e -> CompilerError e
136138 CompilerRequire i c' -> CompilerRequire i $ do
137139 compilerTell w -- Save dependencies!