diff --git a/core/kernel/kernel.factor b/core/kernel/kernel.factor
index cf1cf2a192..7a7db30948 100644
--- a/core/kernel/kernel.factor
+++ b/core/kernel/kernel.factor
@@ -123,7 +123,7 @@ DEFER: if
 
 : rotd ( w x y z -- x y w z ) [ rot ] dip ; inline
 
-: -rotd ( w x y z -- w z x y ) [ -rot ] dip ; inline
+: -rotd ( w x y z -- y w x z ) [ -rot ] dip ; inline
 
 : roll ( w x y z -- x y z w ) rotd swap ; inline