From 1ef231551bb589778aa160dfcf10c3e83cd6dbd0 Mon Sep 17 00:00:00 2001
From: Jonathan Worthington <jnthn@jnthn.net>
Date: Thu, 8 Oct 2009 18:11:41 +0200
Subject: [PATCH] Avoid Parrot tail calls bug, thus fixing ambiguous dispatch
 message causing NPMCA.

---
 src/classes/Code.pir | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/classes/Code.pir b/src/classes/Code.pir
index f040fcdb8d2..48d7a9bab96 100644
--- a/src/classes/Code.pir
+++ b/src/classes/Code.pir
@@ -124,7 +124,8 @@ Gets the signature for the block, or returns Failure if it lacks one.
     $P0 = getprop '$!signature', $P0
     if null $P0 goto no_sig
     $P1 = get_hll_global 'Signature'
-    .tailcall $P1.'new'('ll_sig' => $P0)
+    $P1 = $P1.'new'('ll_sig' => $P0)
+    .return ($P1)
   no_sig:
     .tailcall '!FAIL'('No signature found')
 .end