shuffle less

diff --git a/core/generic/hook/hook.factor b/core/generic/hook/hook.factor
index b2926aa3687364e3b54a93180e75a4ef48367627..b635c6bea70f6634144fe0b3669e3670c20f4140 100644 (file)
--- a/core/generic/hook/hook.factor
+++ b/core/generic/hook/hook.factor
@@ -28,6 +28,6 @@ M: hook-generic effective-method
 M: hook-combination make-consult-quot
     drop          ! combination no longer necessary
     [ drop ] 2dip ! consultation no longer necessary
-    dup "combination" word-prop var>> ! (quot word var)
-    -rot ! (var quot word)
+    [ "combination" word-prop var>> ] keep ! (quot var word)
+    [ swap ] dip ! (var quot word)
     '[ _ _ call swap [ _ execute ] with-variable ] ;