diff --git a/compiler/cstreams.pas b/compiler/cstreams.pas
index 38f79b6908..da1b74ecfc 100644
--- a/compiler/cstreams.pas
+++ b/compiler/cstreams.pas
@@ -417,7 +417,10 @@ begin
   {$I-}
    case Origin of
      soFromBeginning :
-       System.Seek(FHandle,Offset);
+       begin
+         System.Seek(FHandle,Offset);
+         l:=Offset;
+       end;
      soFromCurrent :
        begin
          l:=System.FilePos(FHandle);
@@ -435,7 +438,7 @@ begin
    end;
   {$I+}
   CStreamError:=IOResult;
-  Result:=CStreamError;
+  Result:=l;
 end;