--- eieio-custom.el.orig	2015-04-30 05:34:45.000000000 +0200
+++ eieio-custom.el	2015-05-02 07:39:13.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
@@ -297,6 +302,13 @@
       (let* ((slot (aref slots i))
              (props (cl--slot-descriptor-props slot))
              (cust (alist-get :custom props)))
+	;;
+	;; Shouldn't i be incremented unconditionnaly ? Or
+	;; better shouldn't we simply mapc on the slots vector
+	;; avoiding use of this integer variable ? PLN Sat May
+	;; 2 07:35:45 2015
+	;;
+	(setq i (+ i 1))
         (if (and cust
                  (or eieio-custom-ignore-eieio-co
                      (not master-group)