diff --git a/lib/resource-1.4/Make.hs b/lib/resource-1.4/Make.hs
index 3042060ca..d90c9f32b 100644
--- a/lib/resource-1.4/Make.hs
+++ b/lib/resource-1.4/Make.hs
@@ -67,7 +67,7 @@ make xx = do
 gfc pres path file = do
   let preproc = if pres then " -preproc=./mkPresent " else ""
   putStrLn $ "compiling " ++ file
-  system $ "gfc -s " ++ preproc ++ path ++ file
+  system $ "gfc -s -src " ++ preproc ++ path ++ file
 
 gf comm file = do
   putStrLn $ "reading " ++ file
diff --git a/lib/resource-1.4/demo/Clause.gf b/lib/resource-1.4/demo/Clause.gf
new file mode 100644
index 000000000..0960c2fd2
--- /dev/null
+++ b/lib/resource-1.4/demo/Clause.gf
@@ -0,0 +1,9 @@
+abstract Clause = Cat ** {
+
+fun 
+  PredV   : NP -> V -> Cl ;
+  PredV2  : NP -> V2 -> NP -> Cl ;
+  PredAP  : NP -> AP -> Cl ;
+  PredAdv : NP -> Adv -> Cl ;
+
+}
diff --git a/lib/resource-1.4/demo/ClauseEng.gf b/lib/resource-1.4/demo/ClauseEng.gf
new file mode 100644
index 000000000..5f98c97ae
--- /dev/null
+++ b/lib/resource-1.4/demo/ClauseEng.gf
@@ -0,0 +1 @@
+concrete ClauseEng of Clause = CatEng ** ClauseI with (Grammar = GrammarEng) ;
diff --git a/lib/resource-1.4/demo/ClauseFin.gf b/lib/resource-1.4/demo/ClauseFin.gf
new file mode 100644
index 000000000..d62e9667a
--- /dev/null
+++ b/lib/resource-1.4/demo/ClauseFin.gf
@@ -0,0 +1 @@
+concrete ClauseFin of Clause = CatFin ** ClauseI with (Grammar = GrammarFin) ;
diff --git a/lib/resource-1.4/demo/ClauseFre.gf b/lib/resource-1.4/demo/ClauseFre.gf
new file mode 100644
index 000000000..06cc2b5ab
--- /dev/null
+++ b/lib/resource-1.4/demo/ClauseFre.gf
@@ -0,0 +1 @@
+concrete ClauseFre of Clause = CatFre ** ClauseI with (Grammar = GrammarFre) ;
diff --git a/lib/resource-1.4/demo/ClauseGer.gf b/lib/resource-1.4/demo/ClauseGer.gf
new file mode 100644
index 000000000..47982626c
--- /dev/null
+++ b/lib/resource-1.4/demo/ClauseGer.gf
@@ -0,0 +1 @@
+concrete ClauseGer of Clause = CatGer ** ClauseI with (Grammar = GrammarGer) ;
diff --git a/lib/resource-1.4/demo/ClauseI.gf b/lib/resource-1.4/demo/ClauseI.gf
new file mode 100644
index 000000000..47bab4c73
--- /dev/null
+++ b/lib/resource-1.4/demo/ClauseI.gf
@@ -0,0 +1,9 @@
+incomplete concrete ClauseI of Clause = Cat ** open Grammar in {
+
+lin 
+  PredV np v = PredVP np (UseV v) ;
+  PredV2 s v o = PredVP s (ComplSlash (SlashV2a v) o) ;
+  PredAP s a = PredVP s (UseComp (CompAP a)) ;
+  PredAdv s a = PredVP s (UseComp (CompAdv a)) ;
+
+}
diff --git a/lib/resource-1.4/demo/Demo.gf b/lib/resource-1.4/demo/Demo.gf
new file mode 100644
index 000000000..a959fb481
--- /dev/null
+++ b/lib/resource-1.4/demo/Demo.gf
@@ -0,0 +1,17 @@
+abstract Demo =  
+  Noun- [AdvCN],
+--  Verb,
+  Clause, -- 
+  Adjective,
+  Adverb,
+  Numeral,
+----  Sentence, 
+----  Question,
+----  Relative,
+----  Conjunction,
+----  Phrase,
+----  Text,
+----  Idiom,
+  Structural,
+  Lexicon ;
+
diff --git a/lib/resource-1.4/demo/DemoEng.gf b/lib/resource-1.4/demo/DemoEng.gf
new file mode 100644
index 000000000..4d9860475
--- /dev/null
+++ b/lib/resource-1.4/demo/DemoEng.gf
@@ -0,0 +1,23 @@
+--# -path=.:alltenses
+
+concrete DemoEng of Demo = 
+  NounEng - [AdvCN], 
+--  VerbEng, 
+  ClauseEng, --
+  AdjectiveEng,
+  AdverbEng,
+  NumeralEng,
+  SentenceEng,
+  QuestionEng,
+  RelativeEng,
+  ConjunctionEng,
+  PhraseEng,
+  TextX,
+  StructuralEng,
+  IdiomEng,
+  LexiconEng
+  ** {
+
+flags startcat = Phr ; unlexer = text ; lexer = text ;
+
+} ;
diff --git a/lib/resource-1.4/demo/DemoFin.gf b/lib/resource-1.4/demo/DemoFin.gf
new file mode 100644
index 000000000..ff1e5d020
--- /dev/null
+++ b/lib/resource-1.4/demo/DemoFin.gf
@@ -0,0 +1,23 @@
+--# -path=.:alltenses
+
+concrete DemoFin of Demo = 
+  NounFin - [AdvCN], 
+--  VerbFin, 
+  ClauseFin, --
+  AdjectiveFin,
+  AdverbFin,
+  NumeralFin,
+----  SentenceFin,
+----  QuestionFin,
+----  RelativeFin,
+----  ConjunctionFin,
+----  PhraseFin,
+----  TextX,
+----  IdiomFin,
+  StructuralFin,
+  LexiconFin
+  ** {
+
+flags startcat = Phr ; unlexer = text ; lexer = text ;
+
+} ;
diff --git a/lib/resource-1.4/demo/DemoFre.gf b/lib/resource-1.4/demo/DemoFre.gf
new file mode 100644
index 000000000..d34a51f5e
--- /dev/null
+++ b/lib/resource-1.4/demo/DemoFre.gf
@@ -0,0 +1,23 @@
+--# -path=.:alltenses
+
+concrete DemoFre of Demo = 
+  NounFre - [AdvCN], 
+--  VerbFre, 
+  ClauseFre, --
+  AdjectiveFre,
+  AdverbFre,
+  NumeralFre,
+----  SentenceFre,
+----  QuestionFre,
+----  RelativeFre,
+----  ConjunctionFre,
+----  PhraseFre,
+----  TextX - [Tense,TPres,TPast,TFut,TCond],
+----  IdiomFre,
+  StructuralFre,
+  LexiconFre
+  ** {
+
+flags startcat = Phr ; unlexer = text ; lexer = text ;
+
+} ;
diff --git a/lib/resource-1.4/demo/DemoGer.gf b/lib/resource-1.4/demo/DemoGer.gf
new file mode 100644
index 000000000..393163e3b
--- /dev/null
+++ b/lib/resource-1.4/demo/DemoGer.gf
@@ -0,0 +1,23 @@
+--# -path=.:alltenses
+
+concrete DemoGer of Demo = 
+  NounGer - [AdvCN], 
+--  VerbGer, 
+  ClauseGer, --
+  AdjectiveGer,
+  AdverbGer,
+  NumeralGer,
+--  SentenceGer,
+--  QuestionGer,
+--  RelativeGer,
+--  ConjunctionGer,
+--  PhraseGer,
+--  TextX - [Tense,TPres,TPast,TFut,TCond],
+--  IdiomGer,
+  StructuralGer,
+  LexiconGer
+  ** {
+
+flags startcat = Phr ; unlexer = text ; lexer = text ;
+
+} ;
diff --git a/lib/resource-1.4/demo/DemoI.gf b/lib/resource-1.4/demo/DemoI.gf
new file mode 100644
index 000000000..4d9860475
--- /dev/null
+++ b/lib/resource-1.4/demo/DemoI.gf
@@ -0,0 +1,23 @@
+--# -path=.:alltenses
+
+concrete DemoEng of Demo = 
+  NounEng - [AdvCN], 
+--  VerbEng, 
+  ClauseEng, --
+  AdjectiveEng,
+  AdverbEng,
+  NumeralEng,
+  SentenceEng,
+  QuestionEng,
+  RelativeEng,
+  ConjunctionEng,
+  PhraseEng,
+  TextX,
+  StructuralEng,
+  IdiomEng,
+  LexiconEng
+  ** {
+
+flags startcat = Phr ; unlexer = text ; lexer = text ;
+
+} ;