X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/48395495d6f6602f666c11d0b38f6600b629ccfc..af013e0d4a76f0a2fd4a0e76912e8e49ae86ec2e:/test/automated/eieio-test-persist.el

diff --git a/test/automated/eieio-test-persist.el b/test/automated/eieio-test-persist.el
index 6710ead2e7..9b21b73038 100644
--- a/test/automated/eieio-test-persist.el
+++ b/test/automated/eieio-test-persist.el
@@ -48,7 +48,7 @@ This is usually a symbol that starts with `:'."
   (let* ((file (oref original file))
 	 (class (eieio-object-class original))
 	 (fromdisk (eieio-persistent-read file class))
-	 (cv (eieio--class-v class))
+	 (cv (cl--find-class class))
 	 (slots  (eieio--class-slots cv))
 	 )
     (unless (object-of-class-p fromdisk class)
@@ -62,7 +62,7 @@ This is usually a symbol that starts with `:'."
 	     (origvalue (eieio-oref original oneslot))
 	     (fromdiskvalue (eieio-oref fromdisk oneslot))
 	     (initarg-p (eieio--attribute-to-initarg
-                         (eieio--class-v class) oneslot))
+                         (cl--find-class class) oneslot))
 	     )
 
 	(if initarg-p