diff --git a/ansi-tests/documentation.lsp b/ansi-tests/documentation.lsp
index aa37bbf0dc43ad63b3b3699e6941fe51b166d008..cc4cd65882404bcdf4b0a71e32551bd22bd5ae3b 100644
--- a/ansi-tests/documentation.lsp
+++ b/ansi-tests/documentation.lsp
@@ -614,23 +614,24 @@
 
 ;;; Defining new methods for DOCUMENTATION
 
-(defgeneric documentation-test-class-1-doc-accessor (obj))
-(defgeneric (setf documentation-test-class-1-doc-accessor) (newdoc obj))
+(ignore-errors
+  (defgeneric documentation-test-class-1-doc-accessor (obj))
+  (defgeneric (setf documentation-test-class-1-doc-accessor) (newdoc obj))
 
-(defclass documentation-test-class-1 () ((my-doc :accessor documentation-test-class-1-doc-accessor
+  (defclass documentation-test-class-1 () ((my-doc :accessor documentation-test-class-1-doc-accessor
 						 :type (or null string)
 						 :initform nil)))
   
-(defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) )
-  (slot-value obj 'my-doc))
-(defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
-  (setf (slot-value obj 'my-doc) newdoc))
-
-(defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
-  (documentation-test-class-1-doc-accessor obj))
+  (defmethod documentation-test-class-1-doc-accessor ((obj documentation-test-class-1) )
+    (slot-value obj 'my-doc))
+  (defmethod (setf documentation-test-class-1-doc-accessor) ((newdoc string) (obj documentation-test-class-1))
+    (setf (slot-value obj 'my-doc) newdoc))
+  
+  (defmethod documentation ((obj documentation-test-class-1) (doctype (eql t)))
+    (documentation-test-class-1-doc-accessor obj))
 
-(defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
-  (setf (documentation-test-class-1-doc-accessor obj) newdoc))
+  (defmethod (setf documentation) ((newdoc string) (obj documentation-test-class-1) (doctype (eql t)))
+    (setf (documentation-test-class-1-doc-accessor obj) newdoc)))
 
 (deftest documentation.new-method.1
   (let ((obj (make-instance 'documentation-test-class-1)))