From bf9091b5edaedadc1b123640e999afaf5b800b5c Mon Sep 17 00:00:00 2001
From: Costa Vitor <vitor@quasar-20.(none)>
Date: Wed, 17 Jun 2009 14:43:24 -0500
Subject: [PATCH] fix bug in copyterm

---
 C/utilpreds.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/utilpreds.c b/C/utilpreds.c
index 89682234c..674874a0a 100644
--- a/C/utilpreds.c
+++ b/C/utilpreds.c
@@ -467,7 +467,7 @@ CopyTerm(Term inp, UInt arity, int share, int newattvs) {
 	if ((t = handle_cp_overflow(res, TR0, arity, t))== 0L)
 	  return FALSE;
 	goto restart_list;
-      } else if (res && share && FunctorOfTerm(t) != FunctorMutable) {
+      } else if (res && share) {
 	H = Hi;
 	return t;
       }
@@ -499,7 +499,7 @@ CopyTerm(Term inp, UInt arity, int share, int newattvs) {
 	if ((t = handle_cp_overflow(res, TR0, arity, t))== 0L)
 	  return FALSE;
 	goto restart_appl;
-      } else if (res && share) {
+      } else if (res && share && FunctorOfTerm(t) != FunctorMutable) {
 	H = HB0;
 	return t;
       }