# HG changeset patch
# User Robert McIntyre <rlm@mit.edu>
# Date 1332222033 18000
# Node ID ced1c4cd1eea285247fbef2889c86eed6a10f09e
# Parent  544a97ac3d8a7cd3bfadd81564f3d2140d3eecb4
fix stackoverflow error.

diff -r 544a97ac3d8a -r ced1c4cd1eea clojure/com/aurellem/exp/pokemon.clj
--- a/clojure/com/aurellem/exp/pokemon.clj	Tue Mar 20 00:38:03 2012 -0500
+++ b/clojure/com/aurellem/exp/pokemon.clj	Tue Mar 20 00:40:33 2012 -0500
@@ -508,8 +508,9 @@
      (set-memory-range 
       state
       (OT-ID-addresses n)
-      [(bit-and new-id 0xFF00)
-       (bit-and new-id 0xFF)]))
+      [(bit-shift-right (bit-and new-id 0xFF00) 8)
+       (bit-and new-id 0xFF)
+       ]))
   ([n new-id]
-     (set-pokemon-id n new-id)))
+     (set-pokemon-id @current-state n new-id)))
   
\ No newline at end of file