From 6e17b2053f665d677ea3200150ec1420bba7d4bf Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Thu, 19 Aug 2010 09:32:35 +0100
Subject: [PATCH] fix assembly of table_try_single (report from Paolo
 Frasconi).

---
 C/amasm.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/C/amasm.c b/C/amasm.c
index bdcb48a75..62ed4ff2b 100755
--- a/C/amasm.c
+++ b/C/amasm.c
@@ -3087,7 +3087,7 @@ do_pass(int pass_no, yamop **entry_codep, int assembling, int *clause_has_blobsp
       }
       code_p = cl_u->sc.ClCode;
     }
-    IPredArity = cip->cpc->rnd2;	/* number of args */
+    IPredArity = cip->CurrentPred->ArityOfPE;	/* number of args */
     *entry_codep = code_p;
     if (tabled) {
 #if TABLING