diff --git a/src/scandinavian/SentenceScand.gf b/src/scandinavian/SentenceScand.gf
index 336e4baa3..72101768a 100644
--- a/src/scandinavian/SentenceScand.gf
+++ b/src/scandinavian/SentenceScand.gf
@@ -36,7 +36,7 @@ incomplete concrete SentenceScand of Sentence =
     SlashVS np vs slash = 
       mkClause
         (np.s ! nominative) np.a 
-        (insertObj (\\_ => conjThat ++ slash.s ! Sub) (predV vs)) **
+        (insertExt (conjThat ++ slash.s ! Sub) (predV vs)) **
       {n3 = slash.n3 ; c2 = slash.c2} ;
 
     EmbedS  s  = {s = conjThat ++ s.s ! Sub} ;
diff --git a/src/scandinavian/VerbScand.gf b/src/scandinavian/VerbScand.gf
index 83f10b0a5..2a457fc78 100644
--- a/src/scandinavian/VerbScand.gf
+++ b/src/scandinavian/VerbScand.gf
@@ -16,8 +16,8 @@ incomplete concrete VerbScand of Verb = CatScand ** open CommonScand, ResScand,
       } ;
 
     ComplVV v vp = insertObjPost (\\a => v.c2.s ++ infVP vp a) (predV v) ;
-    ComplVS v s  = insertObjPost (\\_ => conjThat ++ s.s ! Sub) (predV v) ;  --- insertExt ?
-    ComplVQ v q  = insertObjPost (\\_ => q.s ! QIndir) (predV v) ;
+    ComplVS v s  = insertExt (conjThat ++ s.s ! Sub) (predV v) ;  --- insertExt ?
+    ComplVQ v q  = insertExt (q.s ! QIndir) (predV v) ;
     ComplVA v ap = insertObjPre  (\\a => ap.s ! agrAdjNP a DIndef) (predV v) ;
 
     SlashV2V v vp = predV v ** {
@@ -25,11 +25,13 @@ incomplete concrete VerbScand of Verb = CatScand ** open CommonScand, ResScand,
       c2 = v.c2
       } ;
     SlashV2S v s = predV v ** {
-      n3 = \\_ => conjThat ++ s.s ! Sub ;
+      n3  = \\_ => [] ;
+      ext = conjThat ++ s.s ! Sub ;
       c2 = v.c2
       } ; 
     SlashV2Q v q = predV v ** {
-      n3 = \\_ => q.s ! QIndir ;
+      n3  = \\_ => [] ;
+      ext = q.s ! QIndir ;
       c2 = v.c2
       } ;
     SlashV2A v ap = predV v ** {