corrections in finnish tram

1 files changed, 9 insertions, 3 deletions

diff --git a/examples/godis-tram/Tram/TramUserFin.gf b/examples/godis-tram/Tram/TramUserFin.gf
index eff07ec22..66287a9bf 100644
--- a/examples/godis-tram/Tram/TramUserFin.gf
+++ b/examples/godis-tram/Tram/TramUserFin.gf
@@ -1,13 +1,19 @@
 --# -path=.:../Common:prelude:alltenses:mathematical
 
 concrete TramUserFin of TramUser = TramUserFin0-[stop_dest_stop, stop_dept_stop] **
-  open GrammarFin, GodisLangFin, TramLexiconFin in {
+  open GrammarFin, GodisLangFin, TramLexiconFin, ParadigmsFin in {
 
 lin
   stop_dest_stop x y = 
     UttAdv (mkAdv (
-      fromStr Adv (PrepNP (casePrep from_Case) x) ++
-      fromStr Adv (PrepNP (casePrep to_Case) y)
+      (PrepNP (casePrep from_Case) x).s ++
+      (PrepNP (casePrep to_Case) y).s
+        )
+      ) ;
+  stop_dept_stop x y = 
+    UttAdv (mkAdv (
+      (PrepNP (casePrep to_Case) x).s ++
+      (PrepNP (casePrep from_Case) y).s
         )
       ) ;
 }