--- a/lm_types.c	Fri Jul 01 19:46:30 2011 +0300
+++ b/lm_types.c	Sun Jul 03 22:17:16 2011 +0300
@@ -26,7 +26,7 @@
 
 void llm_callback_destroy (llm_callback_t *cb)
 {
-	D ("Destroying callback %X", (int) cb);
+	D ("Destroying callback %p", cb);
 	luaL_unref (cb->L, LUA_REGISTRYINDEX, cb->reference);
 	luaL_free (cb->L, cb);
 }
@@ -50,7 +50,7 @@
 	if (!lua_isnil (L, -1)) {                                /* 2 object */ \
 		lua_remove (L, -2);                              /* 1 object */ \
 		object = lua_touserdata (L, -1);                                \
-		D ("Existing " #LWHAT " object %X requested", (int) object);    \
+		D ("Existing " #LWHAT " object %p requested", object);          \
 		return object;                                                  \
 	}                                                                       \
 	                                                            /* 2 nil */ \
@@ -64,7 +64,7 @@
 	lua_remove (L, -2);                                      /* 1 object */ \
 	object->WHAT = WHAT;                                                    \
 	lm_##LWHAT##_ref (WHAT);                                                \
-	D ("New " #LWHAT " object %X blessed", (int) object);                   \
+	D ("New " #LWHAT " object %p blessed", object);                         \
 	return object;                                                          \
 }