bitmap loading was broken

diff --git a/basis/images/images.factor b/basis/images/images.factor
index cb44825e62222f10b1f28d73ed1dfc09209866fe..aa2e11747e119919d43df9a122c43c9f088486eb 100644 (file)
--- a/basis/images/images.factor
+++ b/basis/images/images.factor
@@ -62,7 +62,7 @@ M: R16G16B16 normalize-component-order*
     drop RGB16>8 add-dummy-alpha ;
 
 : BGR>RGB ( bitmap bytes-per-pixel -- pixels )
-    <groups> [ 3 cut [ reverse ] dip append ] map B{ } join ; inline
+    <sliced-groups> [ <reversed> ] map B{ } join ; inline
 
 M: BGRA normalize-component-order*
     drop 4 BGR>RGB ;