diff --git a/src/lib/system/darwin/clang/Texts.Mod b/src/lib/system/darwin/clang/Texts.Mod
index 320f426b..2042dcf7 100644
--- a/src/lib/system/darwin/clang/Texts.Mod
+++ b/src/lib/system/darwin/clang/Texts.Mod
@@ -329,10 +329,14 @@ MODULE Texts;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
   END OpenReader;
 
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
-    VAR u: Run;
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
     IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
-      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR END  (* << LF to CR *)
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+	 IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END
+      END
     ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
     ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
     END;
diff --git a/src/lib/system/darwin/clang/Texts0.Mod b/src/lib/system/darwin/clang/Texts0.Mod
index 7b95e031..19ecf5a1 100644
--- a/src/lib/system/darwin/clang/Texts0.Mod
+++ b/src/lib/system/darwin/clang/Texts0.Mod
@@ -327,7 +327,7 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       Files.Set(R.rider, u(Piece).file, u(Piece).org + R.off)
     END
   END OpenReader;
-
+(*
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
     VAR u: Run;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
@@ -343,6 +343,27 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       R.run := u; R.off := 0
     END
   END Read;
+*)
+  PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
+  BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
+    IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+         IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END  
+      END 
+    ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
+    ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
+    END;
+    IF R.off = u.len THEN INC(R.org, u.len); u := u.next;
+      IF u IS Piece THEN
+        WITH u: Piece DO Files.Set(R.rider, u.file, u.org) END
+      END;
+      R.run := u; R.off := 0
+    END
+  END Read;
+
 
   PROCEDURE ReadElem* (VAR R: Reader);
     VAR u, un: Run;
diff --git a/src/lib/system/freebsd/clang/Texts.Mod b/src/lib/system/freebsd/clang/Texts.Mod
index 320f426b..2042dcf7 100644
--- a/src/lib/system/freebsd/clang/Texts.Mod
+++ b/src/lib/system/freebsd/clang/Texts.Mod
@@ -329,10 +329,14 @@ MODULE Texts;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
   END OpenReader;
 
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
-    VAR u: Run;
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
     IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
-      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR END  (* << LF to CR *)
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+	 IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END
+      END
     ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
     ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
     END;
diff --git a/src/lib/system/freebsd/clang/Texts0.Mod b/src/lib/system/freebsd/clang/Texts0.Mod
index 7b95e031..19ecf5a1 100644
--- a/src/lib/system/freebsd/clang/Texts0.Mod
+++ b/src/lib/system/freebsd/clang/Texts0.Mod
@@ -327,7 +327,7 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       Files.Set(R.rider, u(Piece).file, u(Piece).org + R.off)
     END
   END OpenReader;
-
+(*
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
     VAR u: Run;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
@@ -343,6 +343,27 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       R.run := u; R.off := 0
     END
   END Read;
+*)
+  PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
+  BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
+    IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+         IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END  
+      END 
+    ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
+    ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
+    END;
+    IF R.off = u.len THEN INC(R.org, u.len); u := u.next;
+      IF u IS Piece THEN
+        WITH u: Piece DO Files.Set(R.rider, u.file, u.org) END
+      END;
+      R.run := u; R.off := 0
+    END
+  END Read;
+
 
   PROCEDURE ReadElem* (VAR R: Reader);
     VAR u, un: Run;
diff --git a/src/lib/system/linux/clang/Texts.Mod b/src/lib/system/linux/clang/Texts.Mod
index 320f426b..2042dcf7 100644
--- a/src/lib/system/linux/clang/Texts.Mod
+++ b/src/lib/system/linux/clang/Texts.Mod
@@ -329,10 +329,14 @@ MODULE Texts;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
   END OpenReader;
 
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
-    VAR u: Run;
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
     IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
-      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR END  (* << LF to CR *)
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+	 IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END
+      END
     ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
     ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
     END;
diff --git a/src/lib/system/linux/clang/Texts0.Mod b/src/lib/system/linux/clang/Texts0.Mod
index 7b95e031..19ecf5a1 100644
--- a/src/lib/system/linux/clang/Texts0.Mod
+++ b/src/lib/system/linux/clang/Texts0.Mod
@@ -327,7 +327,7 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       Files.Set(R.rider, u(Piece).file, u(Piece).org + R.off)
     END
   END OpenReader;
-
+(*
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
     VAR u: Run;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
@@ -343,6 +343,27 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       R.run := u; R.off := 0
     END
   END Read;
+*)
+  PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
+  BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
+    IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+         IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END  
+      END 
+    ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
+    ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
+    END;
+    IF R.off = u.len THEN INC(R.org, u.len); u := u.next;
+      IF u IS Piece THEN
+        WITH u: Piece DO Files.Set(R.rider, u.file, u.org) END
+      END;
+      R.run := u; R.off := 0
+    END
+  END Read;
+
 
   PROCEDURE ReadElem* (VAR R: Reader);
     VAR u, un: Run;
diff --git a/src/lib/system/linux/gcc/Texts.Mod b/src/lib/system/linux/gcc/Texts.Mod
index 320f426b..2042dcf7 100644
--- a/src/lib/system/linux/gcc/Texts.Mod
+++ b/src/lib/system/linux/gcc/Texts.Mod
@@ -329,10 +329,14 @@ MODULE Texts;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91**
   END OpenReader;
 
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
-    VAR u: Run;
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
     IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
-      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR END  (* << LF to CR *)
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+	 IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END
+      END
     ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
     ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
     END;
diff --git a/src/lib/system/linux/gcc/Texts0.Mod b/src/lib/system/linux/gcc/Texts0.Mod
index 7b95e031..19ecf5a1 100644
--- a/src/lib/system/linux/gcc/Texts0.Mod
+++ b/src/lib/system/linux/gcc/Texts0.Mod
@@ -327,7 +327,7 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       Files.Set(R.rider, u(Piece).file, u(Piece).org + R.off)
     END
   END OpenReader;
-
+(*
   PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
     VAR u: Run;
   BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
@@ -343,6 +343,27 @@ MODULE Texts0;  (** CAS/HM 23.9.93 -- interface based on Texts by JG/NW 6.12.91*
       R.run := u; R.off := 0
     END
   END Read;
+*)
+  PROCEDURE Read* (VAR R: Reader; VAR ch: CHAR);
+    VAR u: Run; pos: LONGINT; nextch: CHAR;
+  BEGIN u := R.run; R.fnt := u.fnt; R.col := u.col; R.voff := u.voff; INC(R.off);
+    IF u IS Piece THEN Files.Read(R.rider, ch); R.elem := NIL;
+      IF (ch = 0AX) & u(Piece).ascii THEN ch := CR (* << LF to CR *)
+      ELSIF (ch = CR) & u(Piece).ascii THEN (* << CR LF to CR *)
+         pos := Files.Pos(R.rider); Files.Read(R.rider, nextch);
+         IF nextch = 0AX THEN INC(R.off) ELSE Files.Set(R.rider, u(Piece).file, pos) END  
+      END 
+    ELSIF u IS Elem THEN ch := ElemChar; R.elem := u(Elem)
+    ELSE ch := 0X; R.elem := NIL; R.eot := TRUE
+    END;
+    IF R.off = u.len THEN INC(R.org, u.len); u := u.next;
+      IF u IS Piece THEN
+        WITH u: Piece DO Files.Set(R.rider, u.file, u.org) END
+      END;
+      R.run := u; R.off := 0
+    END
+  END Read;
+
 
   PROCEDURE ReadElem* (VAR R: Reader);
     VAR u, un: Run;
diff --git a/src/voc/OPM.cmdln.Mod b/src/voc/OPM.cmdln.Mod
index 7210c766..e3e461a9 100644
--- a/src/voc/OPM.cmdln.Mod
+++ b/src/voc/OPM.cmdln.Mod
@@ -277,6 +277,8 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
       ELSIF curpos MOD 256 # 255 THEN INC(curpos)
         (* at 255 means:  >= 255 *)
       END
+    ELSIF ch = 0DX THEN
+       curpos := Texts.Pos(inR); (* supports CR LF mapping *)
     ELSE
       INC(curpos)
     END ;
@@ -384,8 +386,10 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
 	INC(i);
      UNTIL r.eof OR (i >= 1022) OR ((ORD(ch) < 32) & (ORD(ch) # 9));
      line[i] := 0X;
+     IF (line[i-1] = 0AX) OR (line[i-1] = 0DX) THEN line[i-1] := 0X END;
      (*Console.String(" -- length of line "); Console.Int(i, 0); Console.Ln;*)
      Console.Ln; Console.Ln; Console.String("  "); Console.String(line);
+     Console.Ln;
 
      i := 0;
      Console.String("  ");
@@ -423,7 +427,7 @@ MODULE OPM;  (* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
 	   IF ORD(ch)=9 THEN ch := " " END;
 	   line[i] := ch; INC(i); line[i+1] := 0X;
 	ELSE 
-	   INC(j); i := 0 
+	   IF ch = 0AX THEN INC(j); i := 0 END
 	END;
         (* 
         Console.Ln; Console.String("-- line["); Console.Int(i-1, 0); Console.String("] = "); Console.Char(ch); Console.Ln;
diff --git a/voc b/voc
index 52363208..c2141d5e 100755
Binary files a/voc and b/voc differ
diff --git a/vocstatic.linux.gcc.x86_64 b/vocstatic.linux.gcc.x86_64
index 52363208..3326a0fc 100755
Binary files a/vocstatic.linux.gcc.x86_64 and b/vocstatic.linux.gcc.x86_64 differ