diff --git a/ocat b/ocat
index 73621ad1..802d3c22 100755
Binary files a/ocat and b/ocat differ
diff --git a/showdef.REMOVED.git-id b/showdef.REMOVED.git-id
index 11be13b6..591de599 100644
--- a/showdef.REMOVED.git-id
+++ b/showdef.REMOVED.git-id
@@ -1 +1 @@
-f29f352c8e611105fde30173648f16fe61d936be
\ No newline at end of file
+425e4c63d1a68da9f8a4a69d2e103393b6b4e8be
\ No newline at end of file
diff --git a/src/lib/v4/OakFiles.Mod b/src/lib/v4/OakFiles.Mod
index 9a20afd8..d52d5947 100644
--- a/src/lib/v4/OakFiles.Mod
+++ b/src/lib/v4/OakFiles.Mod
@@ -427,6 +427,18 @@ BEGIN
   buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE
 END Write;
 
+PROCEDURE WriteByte* (VAR r: Rider; x: SYSTEM.BYTE); (* added for compatibility with PO 2013, -- noch *)
+  VAR buf: Buffer; offset: LONGINT;
+BEGIN
+  buf := r.buf; offset := r.offset;
+  IF (offset >= bufsize) OR (r.org # buf.org) THEN 
+    Set(r, buf.f, r.org + offset); buf := r.buf; offset := r.offset;
+  END ;
+  buf.data[offset] := x; r.offset := offset + 1; buf.chg := TRUE
+END Write;
+
+
+
 PROCEDURE WriteBytes ...
 
 PROCEDURE Read* (VAR r: Rider; VAR x: SYSTEM.BYTE);
diff --git a/voc.REMOVED.git-id b/voc.REMOVED.git-id
index 9014520d..352ab1c1 100644
--- a/voc.REMOVED.git-id
+++ b/voc.REMOVED.git-id
@@ -1 +1 @@
-618780429002771779782b951c5686945ebbb889
\ No newline at end of file
+886580f27024cc2cb8bf3dfc36d84aad5dbd2001
\ No newline at end of file