diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index 83c26dba..0f538d08 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -722,6 +722,7 @@ static void build_subroutines(BuildCtx *ctx)
   |  lay RB, 0(RB, BASE)
   |  lay RC, 0(RC, BASE)
   |1:
+  |  llgc RA, PC_RA
   |  sllg RA, RA, 3(r0)
   |  lay RA, 0(RA, BASE)
   |  llgc CARG5, PC_OP			// Caveat: CARG5 == RD.