gt Term

1 files changed, 9 insertions, 1 deletions

diff --git a/src/GF/Shell.hs b/src/GF/Shell.hs
index 66a073ebc..61fa7ce1e 100644
--- a/src/GF/Shell.hs
+++ b/src/GF/Shell.hs
@@ -188,7 +188,15 @@ execC co@(comm, opts0) sa@((st,(h,_)),a) = case comm of
       _ -> do
         ts <- randomTreesIO opts gro (optIntOrN opts flagNumber 1)
         returnArg (ATrms ts) sa
-  CGenerateTrees -> returnArg (ATrms $ generateTrees opts gro) sa
+  CGenerateTrees -> do
+    let 
+      a' = case a of
+        ASTrm _ -> s2t a
+        _ -> a
+      mt = case a' of
+        ATrms (tr:_) -> Just tr
+        _ -> Nothing
+    returnArg (ATrms $ generateTrees opts gro mt) sa
 
 
   CPutTerm -> changeArg (opTT2CommandArg (optTermCommand opts gro) . s2t) sa