* LEN("str") allowed only in -C or -3 mode.

Mod/OfrontOPB.cp

@@ -1664,13 +1664,19 @@ avoid unnecessary intermediate variables in OFront
 				ELSIF x^.readonly THEN err(76)
 				END
 		| lenfn: (*LEN*)
-				IF (* (x^.class = Ntype) OR *) (x^.class = Nproc) THEN err(126)	(* !!! *)
+				IF (* (x.class = Ntype) OR *) (x.class = Nproc) THEN err(126)	(* !!! *)
 				ELSE
-					IF (OPM.Lang = "C") & (x^.typ^.form = Pointer) THEN DeRef(x) END;
-					IF (x^.class = Nconst) & (x^.typ^.form = Char8) THEN CharToString8(x)
-					ELSIF (x^.class = Nconst) & (x^.typ^.form = Char16) THEN CharToString16(x)
+					IF (OPM.Lang = "C") & (x.typ.form = Pointer) THEN DeRef(x) END;
+					IF x.class = Nconst THEN
+						IF x.typ.form = Char8 THEN CharToString8(x)
+						ELSIF x.typ.form = Char16 THEN CharToString16(x)
+						END
 					END;
-					IF ~(x^.typ^.comp IN {DynArr, Array}) & ~(x^.typ^.form IN {String8, String16}) THEN err(131) END
+					IF ~(x^.typ^.comp IN {DynArr, Array}) & (
+						(OPM.Lang # "C") & (OPM.Lang # "3") OR ~(x.typ.form IN {String8, String16})
+					)
+						THEN err(131)
+					END
 				END
 		| copyfn: (*COPY*)
 				IF (x^.class = Nconst) & (f = Char8) THEN CharToString8(x); f := String8

Mod/OfrontOPM.cmdln.cp

@@ -353,7 +353,7 @@ MODULE OfrontOPM;	(* RC 6.3.89 / 28.6.89, J.Templ 10.7.89 / 22.7.96  *)
 		IF CmdArgs.Count = 0 THEN stop := TRUE;
 			Console.Ln;
 			Console.String(title); Console.Ln;
-			Console.String("Copyright (c) Software Templ OG, 1995-2020 & VEDAsoft Oberon Club, 2013-2024"); Console.Ln; Console.Ln;
+			Console.String("Copyright (c) Software Templ OG, 1995-2020 & VEDAsoft Oberon Club, 2013-2025"); Console.Ln; Console.Ln;
 			Console.String('  command = "'); Console.String(cmd); Console.String('" options {file options}.'); Console.Ln;
 			Console.String('  options = ["-" {option} ].'); Console.Ln;
 			Console.String('  option  = "m" | "s" | "e" | "i" | "r" | "x" | "a" | "p" | "t" | "f" | "d"'); Console.Ln;