From 09f4c7941fdd4c1147d3c6b26b71473984008234 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Tue, 14 Jul 2015 17:50:26 -0700
Subject: [PATCH] pack: whoops, need to dup result.

---
 basis/pack/pack.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/pack/pack.factor b/basis/pack/pack.factor
index dc7c2282aa..8fe0e9f8a9 100644
--- a/basis/pack/pack.factor
+++ b/basis/pack/pack.factor
@@ -116,7 +116,7 @@ MACRO: pack ( str -- quot )
 <PRIVATE
 
 : start/end ( seq -- seq1 seq2 )
-    [ cum-sum0 ] keep v+ ; inline
+    [ cum-sum0 dup ] keep v+ ; inline
 
 PRIVATE>