German negation place

lib/resource-1.0/german/ResGer.gf

@@ -373,8 +373,8 @@ resource ResGer = ParamGer ** open Prelude in {
         let
           verb  = vp.s  ! agr ! VPFinite t a ;
           neg   = vp.a1 ! b ;
-          obj   = vp.n2 ! agr ++ vp.a2 ;
-          compl = obj ++ neg ;
+          obj   = vp.n2 ! agr ;
+          compl = obj ++ neg ++ vp.a2 ;
           inf   = vp.inf ++ verb.inf ;
           extra = vp.ext ;
           inffin = case <a,vp.isAux> of {

lib/resource-1.0/german/VerbGer.gf

@@ -30,7 +30,8 @@ concrete VerbGer of Verb = CatGer ** open Prelude, ResGer in {
     ComplV2A v np ap = 
       insertObj (\\_ => appPrep v.c2 np.s ++ ap.s ! APred) (predV v) ;
 
-    UseComp comp = insertObj comp.s (predV sein_V) ;
+    UseComp comp = insertAdv (comp.s ! agrP3 Sg) (predV sein_V) ; -- agr not used
+    -- we want to say "ich liebe sie nicht" but not "ich bin alt nicht"
 
     CompAP ap = {s = \\_ => ap.s ! APred} ;
     CompNP np = {s = \\_ => np.s ! Nom} ;

lib/resource-1.0/german/log.txt

@@ -265,3 +265,8 @@ Work: ca 27h for whole German (but with support in 0.6 esp. morphology, Swedish)
 Fixed double infinitives with a new field (isAux : Bool) in VP. Used in
 mkClause.
 
+31/1
+
+Fine-tuned the place of negation by changing in ResGerman.mkClause and 
+VerbGerman.UseCompl. Want to say "ich bin nicht alt" and "ich liebe sie nicht".
+