diff --git a/rtl/z80/z80.inc b/rtl/z80/z80.inc
index bdd2966b0d..299d416880 100644
--- a/rtl/z80/z80.inc
+++ b/rtl/z80/z80.inc
@@ -108,8 +108,10 @@ function get_caller_frame(framebp:pointer;addr:pointer=nil):pointer;assembler;
 
 
 {$define FPC_SYSTEM_HAS_SPTR}
-Function Sptr : pointer;assembler;
+Function Sptr : pointer;assembler;nostackframe;
   asm
+    ld hl, 0
+    add hl, sp
   end;