diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index f43787673a..8beea056cf 100644
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -23,6 +23,7 @@ IN: cap
 : screenshot ( window -- bitmap )
     [ <image> ] dip
     [ gl-screenshot >>bitmap ] [ dim>> >>dim ] bi
+    ubyte-components >>component-type
     RGBA >>component-order
     t >>upside-down?
     normalize-image ;