diff --git a/src/russian/AdverbRus.gf b/src/russian/AdverbRus.gf
index b05b2f7c5..9f2ccae10 100644
--- a/src/russian/AdverbRus.gf
+++ b/src/russian/AdverbRus.gf
@@ -12,7 +12,7 @@ lin
 
   -- : CAdv -> A -> NP -> Adv ;   -- more warmly than John - более тепло чем Иван
   ComparAdvAdj cadv a np = {
-    s = cadv.s ++ a.sn ++ comma ++ cadv.p ++ np.s ! Nom
+    s = cadv.s ++ a.sn ++ embedInCommas (cadv.p ++ np.s ! Nom)
     } ;
   -- : CAdv -> A -> S -> Adv ;   -- more warmly than he runs - более тепло чем он бежал
   ComparAdvAdjS cadv a s = {
diff --git a/src/russian/test_result.treebank b/src/russian/test_result.treebank
index 898dc6723..ed36ee377 100644
--- a/src/russian/test_result.treebank
+++ b/src/russian/test_result.treebank
@@ -3555,6 +3555,26 @@ AllRus: нет у вас воды
 AllRusAbs: UseCl (TTAnt TPres ASimul) PPos (ImpersCl (ComplSlash (Slash3V3 have_not_V3 (UsePron youPl_Pron)) (MassNP (UseN water_N))))
 AllRus: нет у вас воды
 
+AllRusAbs: ComparAdvAdj less_CAdv narrow_A everything_NP
+AllRus: менее узко , чем всё
+
+AllRusAbs: UseCl (TTAnt TCond AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , существовал бы
+AllRusAbs: UseCl (TTAnt TCond ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , существовал бы
+AllRusAbs: UseCl (TTAnt TFut AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , будет существовать
+AllRusAbs: UseCl (TTAnt TFut ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , будет существовать
+AllRusAbs: UseCl (TTAnt TPast AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , существовал
+AllRusAbs: UseCl (TTAnt TPast ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , существовал
+AllRusAbs: UseCl (TTAnt TPres AAnter) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , существует
+AllRusAbs: UseCl (TTAnt TPres ASimul) PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP))
+AllRus: дом менее узко , чем всё , существует
+
 AllRusAbs: UseCl (TTAnt TCond AAnter) PNeg (AdvIsNP everywhere_Adv (MassNP (UseN sky_N)))
 AllRus: небо не везде бы &+ ло бы
 AllRusAbs: UseCl (TTAnt TCond AAnter) PPos (AdvIsNP everywhere_Adv (MassNP (UseN sky_N)))
diff --git a/src/russian/test_rus_grammar.gfs b/src/russian/test_rus_grammar.gfs
index dc09fb177..0861813f9 100644
--- a/src/russian/test_rus_grammar.gfs
+++ b/src/russian/test_rus_grammar.gfs
@@ -152,8 +152,11 @@ gt OrdNumeral (num (pot3 (pot1as2 pot110))) | l -treebank
 gt UseCl ? PPos (ImpersCl (ComplSlash (Slash3V3 have_V3 (UsePron youPl_Pron )) (MassNP (UseN water_N) ))) | l -treebank
 gt UseCl ? PPos (ImpersCl (ComplSlash (Slash3V3 have_not_V3 (UsePron youPl_Pron )) (MassNP (UseN water_N) ))) | l -treebank
 
+gt ComparAdvAdj less_CAdv narrow_A everything_NP | l -treebank
+
  -- from extend
 
+gt UseCl ? PPos (ExistNPAdv (MassNP (UseN house_N)) (ComparAdvAdj less_CAdv narrow_A everything_NP)  ) | l -treebank
 gt UseCl (TTAnt ? AAnter) ? (AdvIsNP everywhere_Adv (MassNP (UseN sky_N)))  | l -treebank
 gt UseCl (TTAnt ? AAnter) PPos (AdvIsNPAP everywhere_Adv (MassNP (UseN sky_N)) (PositA blue_A))  | l -treebank
 gt UseCl ? PPos (ExistsNP (MassNP (UseN number_N))) | l -treebank