diff --git a/core/generic/parser/parser.factor b/core/generic/parser/parser.factor
index c6420164d2..0852459c34 100644
--- a/core/generic/parser/parser.factor
+++ b/core/generic/parser/parser.factor
@@ -16,7 +16,7 @@ ERROR: not-in-a-method-error ;
 SYMBOL: current-method
 
 : with-method-definition ( method quot -- )
-    [ dup current-method ] dip with-variable ; inline
+    over current-method set call current-method off ; inline
 
 : (M:) ( method def -- )
     CREATE-METHOD [ parse-definition ] with-method-definition ;