diff --git a/src/vm_s390x.dasc b/src/vm_s390x.dasc
index d16abc05..4c8e3a32 100644
--- a/src/vm_s390x.dasc
+++ b/src/vm_s390x.dasc
@@ -554,7 +554,7 @@ static void build_subroutines(BuildCtx *ctx)
   |
   |  lg RD, L:LREG->top
   |  sgr RD, RA
-  |  srlg NARGS:RD, NARGS:RD, 3	// TODO: support '3' on its own in dynasm.
+  |  srlg NARGS:RD, NARGS:RD, 3
   |  aghi NARGS:RD, 1			// RD = nargs+1
   |
   |->vm_call_dispatch: