diff --git a/src/lib/s3/ethDates.Mod b/src/lib/s3/ethDates.Mod
index c8bbfde5..b42bc9e6 100644
--- a/src/lib/s3/ethDates.Mod
+++ b/src/lib/s3/ethDates.Mod
@@ -188,6 +188,7 @@ BEGIN
   i := 0; j := 0;
   WHILE i < 12 DO WHILE j < A[i+1] DO  T[j] := SHORT(SHORT(i + 1)); INC(j) END; INC(i) END;
   (*Oberon.OpenScanner(S, "System.TimeDiff");*)
+  NEW(Txt);
   Texts.Open(Txt, "System.TimeDiff");
   Texts.OpenScanner(S, Txt, 0);
   TimeDiff := 0;
diff --git a/src/lib/s3/ethStrings.Mod b/src/lib/s3/ethStrings.Mod
index 07423e61..c9b2fe0a 100644
--- a/src/lib/s3/ethStrings.Mod
+++ b/src/lib/s3/ethStrings.Mod
@@ -829,6 +829,7 @@ END StrToReal;
   PROCEDURE Init();
     VAR i: LONGINT;  s: Texts.Scanner; txt : Texts.Text; (* noch *)
   BEGIN
+    NEW(txt);
     Texts.Open(txt, "System.DateFormat"); (* got rid of Oberon.OpenScanner -- noch *)
     Texts.OpenScanner(s, txt, 0);
     IF s.class = Texts.String THEN COPY(s.s, dateform) ELSE dateform := "" END;