--- a/src/fns.c	Wed Jun 01 10:53:50 2011 +0200
+++ b/src/fns.c	Wed Jun 01 14:53:44 2011 +0200
@@ -6213,36 +6213,6 @@
 }
 
 
-DEFUN ("object-address", Fobject_address, 1, 1, 0, /*
-Return OBJECT's memory address as an integer.
-This may be useful for customized printing of unreadable Lisp objects.
-As this only makes sense for record type objects, this function returns nil
-for chars and integers.
-*/
-       (object))
-{
-  switch (XTYPE (object))
-    {
-    case Lisp_Type_Int_Even:
-    case Lisp_Type_Int_Odd:
-    case Lisp_Type_Char:
-      {
-	return Qnil;
-      }
-    case Lisp_Type_Record:
-      {
-	return make_integer ((EMACS_INT) GET_VOID_FROM_LISP (object));
-      }
-    default:
-      {
-	signal_error (Qinternal_error,
-		      "Internal error: illegal lisp object tag type",
-		      object);
-      }
-    }
-}
-
-
 
 static Lisp_Object
 tweaked_internal_equal (Lisp_Object obj1, Lisp_Object obj2,
@@ -11816,7 +11786,6 @@
   DEFSUBR (Fremprop);
   DEFSUBR (Fobject_plist);
   DEFSUBR (Fobject_setplist);
-  DEFSUBR (Fobject_address);
   DEFSUBR (Fequal);
   DEFSUBR (Fequalp);
   DEFSUBR (Ffill);