From 5bc73cc5afcb9a5ae36a5ec9eec2a3fab68d5ff4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Sat, 6 Oct 2007 13:36:24 -0400
Subject: [PATCH] Fix string buffer implementation bug

---
 core/sbufs/sbufs.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/sbufs/sbufs.factor b/core/sbufs/sbufs.factor
index 4ed47b20a3..3753be7729 100644
--- a/core/sbufs/sbufs.factor
+++ b/core/sbufs/sbufs.factor
@@ -9,7 +9,7 @@ IN: sbufs
 M: sbuf set-nth-unsafe
     underlying >r >r >fixnum r> >fixnum r> set-char-slot ;
 
-M: sbuf new drop [ 0 <string> ] keep string>sbuf ;
+M: sbuf new drop [ 0 <string> ] keep >fixnum string>sbuf ;
 
 : >sbuf ( seq -- sbuf ) SBUF" " clone-like ; inline