diff --git a/extra/boids/ui/ui.factor b/extra/boids/ui/ui.factor
index 38dd9b4f78..cd73c67a71 100755
--- a/extra/boids/ui/ui.factor
+++ b/extra/boids/ui/ui.factor
@@ -41,7 +41,7 @@ IN: boids.ui
 
 : draw-boids ( -- ) boids> [ draw-boid ] each ;
 
-: boid-color ( -- color ) { 1.0 0 0 0.3 } ;
+: boid-color ( -- color ) T{ rgba f 1.0 0 0 0.3 } ;
 
 : display ( -- )
   boid-color >fill-color