diff --git a/lib/src/bulgarian/QuestionBul.gf b/lib/src/bulgarian/QuestionBul.gf
index bfb907b49..351dcaf68 100644
--- a/lib/src/bulgarian/QuestionBul.gf
+++ b/lib/src/bulgarian/QuestionBul.gf
@@ -27,7 +27,7 @@ concrete QuestionBul of Question = CatBul ** open ResBul, Prelude in {
     QuestIAdv iadv cl = mkQuestion iadv cl ;
 
     QuestIComp icomp np = 
-      mkQuestion icomp (mkClause (np.s ! RObj Acc) np.a (predV verbBe)) ;
+      mkQuestion icomp (mkClause (np.s ! RSubj) np.a (predV verbBe)) ;
 
     PrepIP p ip = {s = \\qform => p.s ++ case p.c of {Dat=>"на";_=>[]} ++ ip.s ! RSubj ! qform} ;