diff --git a/rtl/win/dos.pp b/rtl/win/dos.pp
index 751d8a273a..991ae81168 100644
--- a/rtl/win/dos.pp
+++ b/rtl/win/dos.pp
@@ -808,7 +808,7 @@ begin
           begin
              { getenv:=copy(s,i+1,length(s)-i);
                this limits the size to 255-(i+1) }
-             getenv:=strpas(hp+i+1);
+             getenv:=strpas(hp+i);
              break;
           end;
         { next string entry}