diff --git a/basis/compiler/tree/escape-analysis/allocations/allocations.factor b/basis/compiler/tree/escape-analysis/allocations/allocations.factor
index 015b6ad626..2f9aecead5 100644
--- a/basis/compiler/tree/escape-analysis/allocations/allocations.factor
+++ b/basis/compiler/tree/escape-analysis/allocations/allocations.factor
@@ -19,7 +19,7 @@ SYMBOL: value-classes
 ! - t -- not allocated in this procedure, can never be unboxed
 SYMBOL: allocations
 
-: (allocation) ( value -- value' allocations )
+: (allocation) ( -- allocations )
     allocations get ; inline
 
 : allocation ( value -- allocation )