diff --git a/extra/project-euler/044/044.factor b/extra/project-euler/044/044.factor
index b4300d0fe8..48dad9f751 100644
--- a/extra/project-euler/044/044.factor
+++ b/extra/project-euler/044/044.factor
@@ -43,7 +43,7 @@ PRIVATE>
 : euler044 ( -- answer )
     most-positive-fixnum >fixnum
     2500 [1,b] [
-        2500 [1,b] [
+        dup [1,b] [
             euler044-step
         ] with each
     ] each ;