diff --git a/src/compiler/GF/Command/Commands.hs b/src/compiler/GF/Command/Commands.hs
index 00d8e427a..cef46516b 100644
--- a/src/compiler/GF/Command/Commands.hs
+++ b/src/compiler/GF/Command/Commands.hs
@@ -171,7 +171,7 @@ allCommands env@(pgf, mos) = Map.fromList [
                  let file s = "_grph." ++ s
                  let view = optViewGraph opts
                  let format = optViewFormat opts 
-                 writeUTF8File (file "dot") grph
+                 restricted $ writeUTF8File (file "dot") grph
                  restrictedSystem $ "dot -T" ++ format ++ " " ++ file "dot" ++ " > " ++ file format
                  restrictedSystem $ view ++ " " ++ file format
                  return void