diff --git a/examples/peacekeeping/PeaceSyntaxI.gf b/examples/peacekeeping/PeaceSyntaxI.gf
index e25837aac..4864682d6 100644
--- a/examples/peacekeeping/PeaceSyntaxI.gf
+++ b/examples/peacekeeping/PeaceSyntaxI.gf
@@ -1,7 +1,8 @@
 incomplete concrete PeaceSyntaxI of PeaceSyntax = PeaceCatI ** open Lang in {
 
   flags 
-    optimize = all_subs ;
+--    optimize = all_subs ;
+    optimize = share ;
     unlexer = text ; lexer = text ;
 
   lincat
diff --git a/examples/peacekeeping/mkPeace.gfs b/examples/peacekeeping/mkPeace.gfs
new file mode 100644
index 000000000..169cc8480
--- /dev/null
+++ b/examples/peacekeeping/mkPeace.gfs
@@ -0,0 +1,4 @@
+i -optimize=share english/Peace_Eng.gf
+i -optimize=share swedish/Peace_Swe.gf
+s
+pm | wf peace.gfcm