diff --git a/extra/project-euler/265/265.factor b/extra/project-euler/265/265.factor
index 387677fef6..261a9e8ff2 100644
--- a/extra/project-euler/265/265.factor
+++ b/extra/project-euler/265/265.factor
@@ -41,7 +41,7 @@ CONSTANT: N 5
 
 : ?register ( acc seq -- )
     complete rotate-bits
-    [ 2 N ^ mod ] map all-unique? [ infimum swap push ] [ drop ] if* ;
+    dup [ 2 N ^ mod ] map all-unique? [ infimum swap push ] [ 2drop ] if ;
 
 : add-bit ( seen bit -- seen' t/f )
     over last 2 * + 2 N ^ mod