From 2ff38e852893972f6d8000a70bb4a359fb7e44df Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Mon, 22 Oct 2007 10:10:20 +0000
Subject: Various cleanup

---
 src/interp/i-coerfn.boot.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/interp/i-coerfn.boot.pamphlet')

diff --git a/src/interp/i-coerfn.boot.pamphlet b/src/interp/i-coerfn.boot.pamphlet
index 034067d3..16eb1850 100644
--- a/src/interp/i-coerfn.boot.pamphlet
+++ b/src/interp/i-coerfn.boot.pamphlet
@@ -635,7 +635,7 @@ I2NNI(n,source,target) ==
 
 L2Tuple(val, source is [.,S], target is [.,T]) ==
     val = '_$fromCoerceable_$ => canCoerce(S,T)
-    null (object := coerceInt1(mkObjWrap(val,source), ['List, T])) =>
+    null (object := coerceInt1(objNewWrap(val,source), ['List, T])) =>
       coercionFailure()
     asTupleNew0 objValUnwrap object
 
-- 
cgit v1.2.3