From e6db6bb813d5940b229d3da9ac0fefad057475ae Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 21 Mar 2013 07:17:45 -0700
Subject: [PATCH] game.models.util: fix for immutable error.

---
 extra/game/models/util/util.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/game/models/util/util.factor b/extra/game/models/util/util.factor
index cf43e69451..da32c6bca2 100644
--- a/extra/game/models/util/util.factor
+++ b/extra/game/models/util/util.factor
@@ -16,7 +16,7 @@ M:: indexed-seq set-nth ( elt n seq -- )
     seq dseq>>   :> dseq
     seq iseq>>   :> iseq
     seq rassoc>> :> rassoc
-    seq length n = not [ seq immutable ] when
+    seq length n = not [ elt n seq immutable ] when
     elt rassoc at
     [
         iseq push