diff --git a/ansi-tests/change-class.lsp b/ansi-tests/change-class.lsp
index d8e683becfb2fddab08711d71dd0833a5f03989d..65a33819e38e9b0351ea95ed49fdc9429c35dc3e 100644
--- a/ansi-tests/change-class.lsp
+++ b/ansi-tests/change-class.lsp
@@ -164,7 +164,8 @@
 ;; test of class name as second argument
 (deftest change-class.1.12
   (let ((obj (make-instance 'change-class-class-01a :b 1))
-	(new-class (find-class 'change-class-class-01b)))
+	;; (new-class (find-class 'change-class-class-01b))
+	)
     (values
      (eqt obj (change-class obj 'change-class-class-01b :c2 3))
      (typep* obj 'change-class-class-01a)