diff --git a/library/compiler/amd64/alien.factor b/library/compiler/amd64/alien.factor
index 410883fc7c..d6b496e285 100644
--- a/library/compiler/amd64/alien.factor
+++ b/library/compiler/amd64/alien.factor
@@ -3,36 +3,13 @@
 IN: compiler-backend
 USING: alien assembler kernel math ;
 
-GENERIC: store-insn ( from to offset reg-class -- )
-
-GENERIC: load-insn ( elt parameter reg-class -- )
-
-M: int-regs store-insn drop 1 swap stack@ STW ;
-
-M: int-regs load-insn drop 3 + 1 rot stack@ LWZ ;
-
-M: float-regs store-insn
-    >r 1 swap stack@ r>
-    float-regs-size 4 = [ STFS ] [ STFD ] if ;
-
-M: float-regs load-insn
-    >r 1+ 1 rot stack@ r> 
-    float-regs-size 4 = [ LFS ] [ LFD ] if ;
-
-M: stack-params load-insn
-    drop >r 0 1 rot stack@ LWZ 0 1 r> stack@ STW ;
-
 M: %unbox generate-node ( vop -- )
-    drop
-    ! Call the unboxer
-    1 input f compile-c-call
-    ! Store the return value on the C stack
-    2 input return-reg 0 input 2 input store-insn ;
+    drop ;
 
 M: %parameter generate-node ( vop -- )
     ! Move a value from the C stack into the fastcall register
-    drop 0 input 1 input 2 input load-insn ;
+    drop ;
 
-M: %box generate-node ( vop -- ) drop 0 input f compile-c-call ;
+M: %box generate-node ( vop -- ) drop ;
 
 M: %cleanup generate-node ( vop -- ) drop ;