diff --git a/ansi-tests/fdefinition.lsp b/ansi-tests/fdefinition.lsp
index 268a40868bd24b03b1b305b1a43f8450db7e48f5..fe2fcb580bb6c7a27bb2a0c6f1cd424639836bc2 100644
--- a/ansi-tests/fdefinition.lsp
+++ b/ansi-tests/fdefinition.lsp
@@ -25,11 +25,11 @@
   (check-type-error #'fdefinition #'(lambda (x) (typep x '(or symbol (cons (eql setf) (cons symbol null))))))
   nil)
 
-(deftest fdefinition.error.5
-  (let ((fn `(setf ,(gensym))))
-    (eval `(signals-error (fdefinition ',fn) undefined-function
-			  :name ,fn)))
-  t)
+;;; (deftest fdefinition.error.5
+;;;  (let ((fn `(setf ,(gensym))))
+;;;    (eval `(signals-error (fdefinition ',fn) undefined-function
+;;;			  :name ,fn)))
+;;;  t)
 
 (deftest fdefinition.error.6
   (signals-error (locally (fdefinition 10) t) type-error)