Working on with new resource API.

1 files changed, 4 insertions, 4 deletions

diff --git a/grammars/database/DatabaseEng.gf b/grammars/database/DatabaseEng.gf
index d8d232e00..29ae87fec 100644
--- a/grammars/database/DatabaseEng.gf
+++ b/grammars/database/DatabaseEng.gf
@@ -16,11 +16,11 @@ lincat
   Name       = PN ;
 
 lin
-  WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosA B)) ;
+  WhichAre A B = QuestPhrase (IntVP (NounIPMany A) (PosVG (PredAP B))) ;
   IsThere A = QuestPhrase (IsThereCN A) ;
-  AreThere A = QuestPhrase (AreThereCN A) ;
-  WhatIs val = QuestPhrase (IntVP WhatOne (PosNP val)) ;
-  IsIt Q A = QuestPhrase (QuestVP Q (PosA A)) ;
+  AreThere A = QuestPhrase (AreThereCN NoNum A) ;
+  WhatIs val = QuestPhrase (IntVP WhatOne (PosVG (PredNP val))) ;
+  IsIt Q A = QuestPhrase (QuestVP Q (PosVG (PredAP A))) ;
 
   MoreThan   = ComparAdjP ;
   TheMost    = SuperlNP ;