diff --git a/basis/promises/promises.factor b/basis/promises/promises.factor
index 10d028e012..6696ef809e 100644
--- a/basis/promises/promises.factor
+++ b/basis/promises/promises.factor
@@ -4,9 +4,9 @@ USING: accessors arrays effects fry generalizations kernel math
 namespaces parser effects.parser sequences words ;
 IN: promises
 
-TUPLE: promise quot forced? value ;
+TUPLE: promise-state quot forced? value ;
 
-: promise ( quot -- promise ) f f \ promise boa ;
+: promise ( quot -- promise ) f f \ promise-state boa ;
 
 : force ( promise -- value )
     dup forced?>> [