Fix memory corruption in cap

diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index ea5462acf22f328efb77e4a19c5f11f740c442f8..3bd1a5f174d42bc22dd65e281fcb6cadf80c7c6b 100644 (file)
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -6,7 +6,7 @@ models opengl.framebuffers ui.gadgets.worlds ui.gadgets fry alien.syntax ;
 IN: cap
 
 : screenshot-array ( world -- byte-array )
-    dim>> product 3 * <byte-array> ;
+    dim>> [ first 3 * 4 align ] [ second ] bi * <byte-array> ;
 
 : gl-screenshot ( gadget -- byte-array )
     [