diff --git a/mach/pdp/libem/strhp.s b/mach/pdp/libem/strhp.s
index 4c2a8142..1cc07b1c 100644
--- a/mach/pdp/libem/strhp.s
+++ b/mach/pdp/libem/strhp.s
@@ -21,7 +21,7 @@ strhp~:
 	bcs	3f
 1:	jmp	(r0)
 3:	mov	$EHEAP,-(sp)
-	jsr	trp~
+	jsr	pc,trp~
 	jmp	(r0)
 .sect .data
 2:	sys	break; .data2 _end