diff --git a/compiler/ogbase.pas b/compiler/ogbase.pas
index b57aaa0ddf..66663279d1 100644
--- a/compiler/ogbase.pas
+++ b/compiler/ogbase.pas
@@ -1728,12 +1728,14 @@ implementation
 
     procedure TObjData.writebytes(const Data: TByteDynArray; len: TObjSectionOfs);
     begin
-      WriteBytes(Data[0],len);
+      if len>0 then
+        WriteBytes(Data[0],len);
     end;
 
     procedure TObjData.writebytes(const Data: TAnsiCharDynArray; len: TObjSectionOfs);
     begin
-      WriteBytes(Data[0],len);
+      if len>0 then
+        WriteBytes(Data[0],len);
     end;