From 0ae6351754833d901331d3773b36c85df053ebb8 Mon Sep 17 00:00:00 2001
From: bringert <bringert@cs.chalmers.se>
Date: Fri, 8 Dec 2006 20:10:28 +0000
Subject: [PATCH] Use public category with original name as SRGS start cat.

---
 src/GF/Speech/PrSRGS.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/GF/Speech/PrSRGS.hs b/src/GF/Speech/PrSRGS.hs
index a8c166791..89014b1d3 100644
--- a/src/GF/Speech/PrSRGS.hs
+++ b/src/GF/Speech/PrSRGS.hs
@@ -47,7 +47,7 @@ prSrgsXml sisr (SRG{grammarName=name,startCat=start,
                origStartCat=origStart,grammarLanguage=l,rules=rs})
     = showsXMLDoc xmlGr
     where
-    root = prCat start
+    root = cfgCatToGFCat origStart 
     xmlGr = grammar root l ([meta "description" 
                              ("SRGS XML speech recognition grammar for " ++ name
                               ++ ". " ++ "Original start category: " ++ origStart),