1.1 --- a/clojure/com/aurellem/exp/pokemon.clj	Tue Mar 20 00:38:03 2012 -0500
     1.2 +++ b/clojure/com/aurellem/exp/pokemon.clj	Tue Mar 20 00:40:33 2012 -0500
     1.3 @@ -508,8 +508,9 @@
     1.4       (set-memory-range 
     1.5        state
     1.6        (OT-ID-addresses n)
     1.7 -      [(bit-and new-id 0xFF00)
     1.8 -       (bit-and new-id 0xFF)]))
     1.9 +      [(bit-shift-right (bit-and new-id 0xFF00) 8)
    1.10 +       (bit-and new-id 0xFF)
    1.11 +       ]))
    1.12    ([n new-id]
    1.13 -     (set-pokemon-id n new-id)))
    1.14 +     (set-pokemon-id @current-state n new-id)))
    1.15    
    1.16 \ No newline at end of file