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.