diff --git a/ansi-tests/notes.lsp b/ansi-tests/notes.lsp
index cd36ce4a088e8f17f886dd1ae7811633dc28d5bb..5f24241c7f9ff5199750665b396217025b7aced8 100644
--- a/ansi-tests/notes.lsp
+++ b/ansi-tests/notes.lsp
@@ -26,3 +26,8 @@
 (defnote :assume-no-simple-streams
   "Disable the test if simple streams are present.")
 
+(defnote :open-if-exists-new-version-no-error
+  "Assume that OPEN, when called with :if-exists :new-version, does not fail.")
+
+#+sbcl (rt::disable-note :open-if-exists-new-version-no-error)
+
diff --git a/ansi-tests/open.lsp b/ansi-tests/open.lsp
index b1e978b41a2d62f8c207439e0e97f56f1b73dddc..719c6bec29a5388524129b984afcd2b301641cff 100644
--- a/ansi-tests/open.lsp
+++ b/ansi-tests/open.lsp
@@ -42,6 +42,7 @@
 
 (defmacro def-open-test (name args form expected
 			      &key
+			      (notes nil notes-p)
 			      (build-form nil build-form-p)
 			      (element-type 'character element-type-p)
 			      (pathname #p"tmp.dat"))
@@ -74,6 +75,7 @@
 	    ))))
 			      
   `(deftest ,name
+     ,@(when notes-p `(:notes ,notes))
      (let ((pn ,pathname))
        (delete-all-versions pn)
        ,build-form
@@ -548,7 +550,9 @@
 	 (with-open-file
 	  (s pn :direction :input)
 	  (values (read-line s nil))))
-  ("wxyz"))
+  ("wxyz")
+  :notes (:open-if-exists-new-version-no-error)
+  )
 
 (def-open-test open.output.22 (:if-exists :rename :direction :output)
   (progn (write-sequence "wxyz" s)
@@ -628,6 +632,7 @@
 ;;; of the filespec is :newest
 
 (deftest open.output.30
+  :notes (:open-if-exists-new-version-no-error)
   (let ((pn (make-pathname :name "tmp" :type "dat" :version :newest)))
     (or (not (eql (pathname-version pn) :newest))
 	(progn
@@ -877,7 +882,9 @@
   (progn (write-sequence "wxyz" s)
 	 (file-position s :start)
 	 (values (read-line s nil)))
-  ("wxyz"))
+  ("wxyz")
+  :notes (:open-if-exists-new-version-no-error)
+  )
 
 (def-open-test open.io.22 (:if-exists :rename :direction :io)
   (progn (write-sequence "wxyz" s)
@@ -945,6 +952,7 @@
 ;;; of the filespec is :newest
 
 (deftest open.io.30
+  :notes (:open-if-exists-new-version-no-error)
   (let ((pn (make-pathname :name "tmp" :type "dat" :version :newest)))
     (or (not (eql (pathname-version pn) :newest))
 	(progn