diff --git a/src/malay/AdjectiveMay.gf b/src/malay/AdjectiveMay.gf
index 621d7166..bee168c4 100644
--- a/src/malay/AdjectiveMay.gf
+++ b/src/malay/AdjectiveMay.gf
@@ -20,10 +20,8 @@ concrete AdjectiveMay of Adjective = CatMay ** open ResMay, Prelude in {
     } ;
 
   -- : A2 -> NP -> AP ;  -- married to her
-  ComplA2 a2 np = a2 ** {
-    compl = np.s
-   } ;
 
+  ComplA2 a np = {s = a.s ++ np.s ! Bare} ;
   -- : A2 -> AP ;        -- married to itself
   -- ReflA2 a2 = a2 ** { } ;
 
diff --git a/src/malay/ResMay.gf b/src/malay/ResMay.gf
index f974f1e7..65863162 100644
--- a/src/malay/ResMay.gf
+++ b/src/malay/ResMay.gf
@@ -206,7 +206,9 @@ oper
 
   mkAdj : Str -> Adjective = \str -> {s = str} ;
 
-  AdjPhrase : Type = Adjective ; -- ** {compar : Str} ;
+  AdjPhrase = {
+    s : Str
+    } ; -- ** {compar : Str} ;
 --------------------------------------------------------------------------------
 -- Verbs
 
diff --git a/src/malay/VerbMay.gf b/src/malay/VerbMay.gf
index d071aac2..64b6ccbb 100644
--- a/src/malay/VerbMay.gf
+++ b/src/malay/VerbMay.gf
@@ -118,7 +118,7 @@ lin
   -- SlashV2VNP v2v np vps =
 
   -- : Comp -> VP ;
-  UseComp comp = comp ;
+  UseComp comp = comp;
 
   -- : VP -> Adv -> VP ;  -- sleep here
   AdvVP vp adv = vp ** {