diff --git a/extra/boids/boids.factor b/extra/boids/boids.factor
index af148cade1..d4314ade37 100644
--- a/extra/boids/boids.factor
+++ b/extra/boids/boids.factor
@@ -96,7 +96,7 @@ M: range-observer model-changed
 
 :: set-population ( n boids-gadget -- )
     boids-gadget [
-        dup length n - >integer dup 0 >
+        dup length n - dup 0 >
         [ head* ]
         [ neg random-boids append ] if
     ] change-boids drop ;