diff --git a/extra/project-euler/047/047.factor b/extra/project-euler/047/047.factor
index 30c01d8f61..9caaa8776f 100644
--- a/extra/project-euler/047/047.factor
+++ b/extra/project-euler/047/047.factor
@@ -32,7 +32,7 @@ IN: project-euler.047
 <PRIVATE
 
 : (consecutive) ( count goal test -- n )
-    pick pick = [
+    2over = [
         swap - nip
     ] [
         dup prime? [ [ drop 0 ] 2dip ] [