diff --git a/src/server/PGFService.hs b/src/server/PGFService.hs
index e196eca9c..037f32587 100644
--- a/src/server/PGFService.hs
+++ b/src/server/PGFService.hs
@@ -135,6 +135,8 @@ cpgfMain qsem command (t,(pgf,pc)) =
     "c-lookupmorpho"-> out t=<< morpho # from1 % textInput
     "c-flush"       -> out t=<< flush
     "c-grammar"     -> out t grammar
+    "c-abstrtree"   -> outputGraphviz=<< C.graphvizAbstractTree pgf # tree
+    "c-parsetree"   -> outputGraphviz=<< C.graphvizParseTree . snd # from1 %tree
     "c-wordforword" -> out t =<< wordforword # input % to
     _               -> badRequest "Unknown command" command
   where