diff --git a/library/collections/sequences-epilogue.factor b/library/collections/sequences-epilogue.factor
index 82c0fb39e1..f9fbf98166 100644
--- a/library/collections/sequences-epilogue.factor
+++ b/library/collections/sequences-epilogue.factor
@@ -105,8 +105,8 @@ M: object like drop ;
 
 : flip ( matrix -- newmatrix )
     dup empty? [
-        dup first [ length ] keep like
-        [ <column> dup like ] map-with
+        dup first [ length [ <column> dup like ] map-with ] keep
+        like
     ] unless ;
 
 : unpair ( assoc -- keys values )