From 7a4aed9fc5b20d3370111c5377b9cde6ff3aef5b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sun, 27 Nov 2005 23:15:40 +0000
Subject: [PATCH] fix some problems

---
 library/compiler/xt.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/library/compiler/xt.factor b/library/compiler/xt.factor
index 5beb06c345..97ee8c4fe6 100644
--- a/library/compiler/xt.factor
+++ b/library/compiler/xt.factor
@@ -16,7 +16,7 @@ namespaces prettyprint sequences strings vectors words ;
 SYMBOL: compiled-xts
 
 : save-xt ( word -- )
-    compiled-offset swap compiled-xts set-hash ;
+    compiled-offset swap compiled-xts get set-hash ;
 
 : commit-xts ( -- )
     #! We must flush the instruction cache on PowerPC.