diff --git a/basis/compiler/tests/alien.factor b/basis/compiler/tests/alien.factor
index 2b10c8bd38..07457c8f4e 100755
--- a/basis/compiler/tests/alien.factor
+++ b/basis/compiler/tests/alien.factor
@@ -6,6 +6,7 @@ namespaces.private parser quotations sequences
 specialized-arrays stack-checker stack-checker.errors
 system threads tools.test words alien.complex concurrency.promises ;
 FROM: alien.c-types => float short ;
+FROM: alien.private => fastcall ;
 SPECIALIZED-ARRAY: float
 SPECIALIZED-ARRAY: char
 IN: compiler.tests.alien
diff --git a/basis/cpu/x86/32/32.factor b/basis/cpu/x86/32/32.factor
index 44e3f040f6..e346f8ab8c 100755
--- a/basis/cpu/x86/32/32.factor
+++ b/basis/cpu/x86/32/32.factor
@@ -10,6 +10,7 @@ compiler.cfg.intrinsics compiler.cfg.stack-frame
 cpu.x86.assembler cpu.x86.assembler.operands cpu.x86
 cpu.architecture vm ;
 FROM: layouts => cell ;
+FROM: alien.private => fastcall ;
 IN: cpu.x86.32
 
 M: x86.32 machine-registers
diff --git a/core/alien/alien.factor b/core/alien/alien.factor
index 4dab6f8452..194e4201d2 100644
--- a/core/alien/alien.factor
+++ b/core/alien/alien.factor
@@ -5,7 +5,11 @@ kernel.private byte-arrays byte-vectors arrays init
 continuations.private ;
 IN: alien
 
-SINGLETONS: stdcall thiscall fastcall cdecl mingw ;
+SINGLETONS: stdcall thiscall cdecl mingw ;
+
+<PRIVATE
+SINGLETON: fastcall
+PRIVATE>
 
 UNION: abi stdcall thiscall fastcall cdecl mingw ;