diff --git a/core/effects/effects.factor b/core/effects/effects.factor
index d875b8e1d1..c1288052b1 100644
--- a/core/effects/effects.factor
+++ b/core/effects/effects.factor
@@ -131,6 +131,5 @@ M: effect clone
 ERROR: bad-stack-effect word expected got ;
 
 : check-stack-effect ( word effect -- )
-    [ dup stack-effect ] dip
-    2dup effect=
+    over stack-effect 2dup effect=
     [ 3drop ] [ bad-stack-effect ] if ;