diff --git a/Hipmunk.cabal b/Hipmunk.cabal
--- a/Hipmunk.cabal
+++ b/Hipmunk.cabal
@@ -3,7 +3,7 @@
 Tested-With:   GHC
 Category:      Physics, Game
 Name:          Hipmunk
-Version:       0.2
+Version:       0.2.1
 Stability:     provisional
 License:       OtherLicense
 License-File:  LICENSE
diff --git a/NEWS b/NEWS
--- a/NEWS
+++ b/NEWS
@@ -1,3 +1,8 @@
+Version 0.2.1
+=============
+ - Small fix for GHC 6.10. Thanks Pekka Karjalainen and Creighton Hogg
+   for the reports, and sorry for the delay.
+
 Version 0.2
 ===========
  - Fix a subtle bug within Space that would keep some ForeignPtr's
diff --git a/Physics/Hipmunk/Space.hsc b/Physics/Hipmunk/Space.hsc
--- a/Physics/Hipmunk/Space.hsc
+++ b/Physics/Hipmunk/Space.hsc
@@ -528,7 +528,7 @@
 retriveShape :: Space -> ShapePtr -> IO Shape
 retriveShape (P _ entities _) ptr = do
   ent <- readIORef entities
-  Right shape <- M.lookup (castPtr ptr) ent
+  let Just (Right shape) = M.lookup (castPtr ptr) ent
   return shape