Look at both command-line and grammar startcat falgs in pg commands.

1 files changed, 4 insertions, 3 deletions

diff --git a/src/GF/Speech/PrJSGF.hs b/src/GF/Speech/PrJSGF.hs
index 56f5eda1b..2a4c4fd51 100644
--- a/src/GF/Speech/PrJSGF.hs
+++ b/src/GF/Speech/PrJSGF.hs
@@ -30,9 +30,10 @@ import GF.Probabilistic.Probabilistic (Probs)
 import GF.Speech.SRG
 
 jsgfPrinter :: Ident -- ^ Grammar name
-	   -> Options -> Maybe Probs -> CGrammar -> String
-jsgfPrinter name opts probs cfg = prJSGF srg ""
-    where srg = makeSimpleSRG name opts probs cfg
+            -> String    -- ^ Start category
+	    -> Options -> Maybe Probs -> CGrammar -> String
+jsgfPrinter name start opts probs cfg = prJSGF srg ""
+    where srg = makeSimpleSRG name start opts probs cfg
 
 prJSGF :: SRG -> ShowS
 prJSGF (SRG{grammarName=name,startCat=start,origStartCat=origStart,rules=rs})