diff --git a/src/GF/Command/Commands.hs b/src/GF/Command/Commands.hs
index 2aa616739..57303f53f 100644
--- a/src/GF/Command/Commands.hs
+++ b/src/GF/Command/Commands.hs
@@ -530,7 +530,7 @@ allCommands cod pgf = Map.fromList [
  where
    enc = encodeUnicode cod
    lin opts t = unlines [linearize pgf lang t    | lang <- optLangs opts]
-   par opts s = concat  [parse pgf lang (optCat opts) s | lang <- optLangs opts]
+   par opts s = concat  [parse pgf lang (optCat opts) s | lang <- optLangs opts, canParse pgf lang]
  
    void = ([],[])