diff --git a/ansi-tests/allocate-instance.lsp b/ansi-tests/allocate-instance.lsp
index 653266f23595a4b5a74b59eaca25437525fd7985..830bec3c5b6bebdca7d33c3cfc7dbf91d9601c99 100644
--- a/ansi-tests/allocate-instance.lsp
+++ b/ansi-tests/allocate-instance.lsp
@@ -111,6 +111,11 @@
   (classify-error (allocate-instance))
   program-error)
 
+;;; Duane Rettig made a convincing argument that the next two
+;;; tests are bad, since the caller of allocate-instance
+;;; is supposed to have checked that the initargs are valid
+
+#|
 (deftest allocate-instance.error.2
   (classify-error (allocate-instance (find-class 'allocate-instance-class-01)
 				     :b))
@@ -120,3 +125,4 @@
   (classify-error (allocate-instance (find-class 'allocate-instance-class-01)
 				     '(a b c) nil))
   program-error)
+|#