diff --git a/basis/compiler/tree/finalization/finalization.factor b/basis/compiler/tree/finalization/finalization.factor
index c9d9f7df01..5b09cfab63 100644
--- a/basis/compiler/tree/finalization/finalization.factor
+++ b/basis/compiler/tree/finalization/finalization.factor
@@ -107,13 +107,13 @@ MEMO: <byte-array>-expansion ( n -- quot )
     first-literal <byte-array>-expansion ;
 
 MEMO: <ratio>-expansion ( -- quot )
-    [ (ratio) [ 1 set-slot ] keep [ 2 set-slot ] keep ] splice-final ;
+    [ (ratio) [ 2 set-slot ] keep [ 1 set-slot ] keep ] splice-final ;
 
 : expand-<ratio> ( #call -- nodes )
     drop <ratio>-expansion ;
 
 MEMO: <complex>-expansion ( -- quot )
-    [ (complex) [ 1 set-slot ] keep [ 2 set-slot ] keep ] splice-final ;
+    [ (complex) [ 2 set-slot ] keep [ 1 set-slot ] keep ] splice-final ;
 
 : expand-<complex> ( #call -- nodes )
     drop <complex>-expansion ;
diff --git a/basis/cpu/architecture/architecture.factor b/basis/cpu/architecture/architecture.factor
index 31cd979025..1931187779 100644
--- a/basis/cpu/architecture/architecture.factor
+++ b/basis/cpu/architecture/architecture.factor
@@ -188,7 +188,7 @@ HOOK: %unbox-f cpu ( dst src -- )
 
 HOOK: %unbox-any-c-ptr cpu ( dst src -- )
 
-HOOK: %box-alien cpu ( dst src temp1 temp2 -- )
+HOOK: %box-alien cpu ( dst src temp -- )
 
 ! Allocation
 HOOK: %allot cpu ( dst size type tag temp -- )