diff --git a/rtl/go32v2/sysos.inc b/rtl/go32v2/sysos.inc
index f17aa2c656..3ae07f2d4c 100644
--- a/rtl/go32v2/sysos.inc
+++ b/rtl/go32v2/sysos.inc
@@ -38,6 +38,7 @@ function far_strlen(selector : word;linear_address : longint) : longint;assemble
 asm
         movl linear_address,%edx
         movl %edx,%ecx
+        pushl %gs
         movw selector,%gs
 .Larg19:
         movb %gs:(%edx),%al
@@ -46,6 +47,7 @@ asm
         incl %edx
         jmp .Larg19
 .Larg20:
+        popl %gs
         movl %edx,%eax
         subl %ecx,%eax
 end;