diff --git a/src/lib/v4_compat/Oberon.Mod b/src/lib/v4_compat/Oberon.Mod
index 89b111b8..3a8038c0 100644
--- a/src/lib/v4_compat/Oberon.Mod
+++ b/src/lib/v4_compat/Oberon.Mod
@@ -2,7 +2,7 @@ MODULE Oberon;
 
 (* this version should not have dependency on graphics -- noch *)
 
-  IMPORT Kernel, Texts, Args;
+  IMPORT Kernel, Texts, Args, Out := Console;
   TYPE
 
     ParList* = POINTER TO ParRec;
@@ -53,6 +53,18 @@ MODULE Oberon;
 
   END PopulateParams;
 
+  PROCEDURE DumpLog*;
+  VAR R : Texts.Reader;
+      ch : CHAR;
+  BEGIN
+     Texts.OpenReader(R, Log, 0);
+
+     REPEAT
+	    Texts.Read(R, ch);
+	    Out.Char(ch); 
+	 UNTIL R.eot;
+  END DumpLog;
+
 BEGIN
    NEW(Par);
    NEW(Par.text);