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-coerce.boot.pamphlet | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/src/interp/i-coerce.boot.pamphlet b/src/interp/i-coerce.boot.pamphlet
index f7c690a4..a3bc0760 100644
--- a/src/interp/i-coerce.boot.pamphlet
+++ b/src/interp/i-coerce.boot.pamphlet
@@ -1400,7 +1400,7 @@ coerceByFunction(T,m2) ==
     [fn,:d]:= fun
     isWrapped x =>
       x:= unwrap x
-      mkObjWrap(SPADCALL(CAR x,CDR x,fun),m2)
+      objNewWrap(SPADCALL(CAR x,CDR x,fun),m2)
     x isnt ['SPADCALL,a,b,:.] => keyedSystemError("S2IC0015",NIL)
     code := ['SPADCALL, a, b, fun]
     objNew(code,$Boolean)
-- 
cgit v1.2.3