From d1fa17ba6bdf08c30d13012fd6d96b67064b4e48 Mon Sep 17 00:00:00 2001
From: "kr.angelov" <kr.angelov@gmail.com>
Date: Thu, 1 Jun 2006 21:36:17 +0000
Subject: [PATCH] bugfix

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

diff --git a/src/GF/Conversion/SimpleToFCFG.hs b/src/GF/Conversion/SimpleToFCFG.hs
index deff5fd95..ba729e9b0 100644
--- a/src/GF/Conversion/SimpleToFCFG.hs
+++ b/src/GF/Conversion/SimpleToFCFG.hs
@@ -146,7 +146,7 @@ convertArg (TblPrj term selector) nr cat path lbl_path lin lins =
 convertArg (ConSel terms)   nr cat path lbl_path lin lins = do
   sel <- member terms
   restrictHead   lbl_path sel
-  restrictArg nr lbl_path sel
+  restrictArg nr path sel
   return lins
 convertArg StrSel          nr cat path lbl_path lin lins = do
   projectHead lbl_path