--- JSON-XS/typemap	2007/07/02 07:39:31	1.1
+++ JSON-XS/typemap	2007/08/13 16:14:20	1.2
@@ -3,7 +3,8 @@
 INPUT
 
 T_JSON
-	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg)) && SvSTASH (SvRV ($arg)) == json_stash))
+	if (!(SvROK ($arg) && SvOBJECT (SvRV ($arg))
+            && SvSTASH (SvRV ($arg)) == JSON_STASH))
           croak (\"object is not of type JSON::XS\");
         $var = (JSON *)SvPVX (SvRV ($arg));