--- eieio-custom.el.orig	2015-04-30 05:34:45.000000000 +0200
+++ eieio-custom.el	2015-04-30 08:11:25.000000000 +0200
@@ -261,13 +261,18 @@
                                              (or
                                               (eieio--class-slot-initarg
                                                (eieio--object-class obj)
-                                               (car slots))
-                                              (car slots)))))
+                                               ;; (car slots)
+					       (eieio-slot-descriptor-name slot)
+					       )
+                                              ;; (car slots)
+					      (eieio-slot-descriptor-name slot)
+					      ))))
                                      (capitalize
                                       (if (string-match "^:" s)
                                           (substring s (match-end 0))
                                         s)))))
-                              :value (slot-value obj (car slots))
+                              :value (slot-value obj ;; (car slots)
+						 (eieio-slot-descriptor-name slot))
                               :doc  (or (alist-get :documentation props)
                                         "Slot not Documented.")
                               :eieio-custom-visibility 'visible