From 62568770a9fad32a8b911f2ec19de0979f640b0b Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 6 Mar 2008 16:07:30 -0600
Subject: [PATCH] Fix

---
 core/io/binary/binary.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)
 mode change 100644 => 100755 core/io/binary/binary.factor

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 )