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

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

diff --git a/src/interp/i-code.boot.pamphlet b/src/interp/i-code.boot.pamphlet
index c58ff15e..c6551bb5 100644
--- a/src/interp/i-code.boot.pamphlet
+++ b/src/interp/i-code.boot.pamphlet
@@ -138,7 +138,7 @@ intCodeGenCoerce1(val,t1,t2) ==
   -- Internal function to previous one
   -- designed to ensure that we don't use coerceOrCroak on mappings
 --(t2 is ['Mapping,:.]) => THROW('coerceOrCroaker, 'croaked)
-  objNew(['coerceOrCroak,mkObjCode(['wrap,val],t1),
+  objNew(['coerceOrCroak,objNewCode(['wrap,val],t1),
         MKQ t2, MKQ $mapName],t2)
 
 --% Map components
-- 
cgit v1.2.3