diff --git a/BNFC-meta.cabal b/BNFC-meta.cabal
--- a/BNFC-meta.cabal
+++ b/BNFC-meta.cabal
@@ -1,5 +1,5 @@
 Name:		BNFC-meta
-version:	0.1
+version:	0.1.0.1
 cabal-Version:  >= 1.6
 build-type:     Simple
 license:        GPL-2
diff --git a/Language/LBNF/CFtoPrinter.hs b/Language/LBNF/CFtoPrinter.hs
--- a/Language/LBNF/CFtoPrinter.hs
+++ b/Language/LBNF/CFtoPrinter.hs
@@ -52,7 +52,7 @@
   i <- newName "i"
   let 
     posn = if isPositionCat cf own 
-      then tupP [wildP,conP (mkName own) [varP i]]
+      then conP (mkName own) [tupP [wildP, varP i]]
       else conP (mkName own) [varP i]
     body = normalB [|doc (showString $(varE i))|]
     prtc = funD ('prt) [clause [wildP, posn] body []]