diff --git a/ansi-tests/defclass-aux.lsp b/ansi-tests/defclass-aux.lsp
index 961b7dfed7ed0bada120c9f645a5ddc989d6146b..9fdcab9cfbe1c4e08959e254e3bfe878ba31b6c9 100644
--- a/ansi-tests/defclass-aux.lsp
+++ b/ansi-tests/defclass-aux.lsp
@@ -234,7 +234,7 @@
 			'(,sym))))
 	 nil))))
 
-(defun compute-class-precedence-list (class-name)
+(defun my-compute-class-precedence-list (class-name)
   "Compute the class precdence list for classes defined using
    DEFCLASS-WITH-TESTS."
   (let ((class-names nil)