1 files changed, 3 insertions, 2 deletions
diff --git a/objcl.lisp b/objcl.lisp
index 52e73e7..f2af9e9 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -344,9 +344,10 @@
 
 (defmethod print-object ((object objc-id) stream)
   (print-unreadable-object (object stream)
-    (format stream "~A OBJC-ID"
+    (format stream "~A {~X}"
             (objcl-class-name
-             (objcl-invoke-instance-method object "class")))))
+             (objcl-invoke-class-method object "class"))
+            (objcl-invoke-class-method object "hash"))))
 
 
 (defmethod print-object ((object objc-class) stream)