diff --git a/core/io/binary/binary.factor b/core/io/binary/binary.factor
old mode 100644
new mode 100755
index c4d3abefce..9f6231b643
--- a/core/io/binary/binary.factor
+++ b/core/io/binary/binary.factor
@@ -10,7 +10,7 @@ IN: io.binary
 
 : nth-byte ( x n -- b ) -8 * shift mask-byte ; inline
 
-: >le ( x n -- str ) [ nth-byte ] with "" map-as ;
+: >le ( x n -- str ) [ nth-byte ] with B{ } map-as ;
 : >be ( x n -- str ) >le dup reverse-here ;
 
 : d>w/w ( d -- w1 w2 )