diff --git a/basis/alien/complex/functor/functor.factor b/basis/alien/complex/functor/functor.factor
index c6644eba1d..31af0291b4 100644
--- a/basis/alien/complex/functor/functor.factor
+++ b/basis/alien/complex/functor/functor.factor
@@ -28,8 +28,8 @@ T in get
 define-struct
 
 T c-type
-<T> 1quotation >>boxer-quot
-*T 1quotation >>unboxer-quot
+<T> 1quotation >>unboxer-quot
+*T 1quotation >>boxer-quot
 drop
 
 ;FUNCTOR