diff --git a/extra/modern/out/out.factor b/extra/modern/out/out.factor
index 89e283ba81..fc7633c67e 100644
--- a/extra/modern/out/out.factor
+++ b/extra/modern/out/out.factor
@@ -47,7 +47,7 @@ DEFER: map-literals
 DEFER: map-literals
 : map-literal ( obj quot: ( ..a obj -- ..a obj' ) -- obj )
     over section? [
-        [ second ] dip map-literals concat
+        [ second ] dip map-literals
     ] [
         call
     ] if ; inline recursive