diff --git a/ansi-tests/ansi-aux.lsp b/ansi-tests/ansi-aux.lsp
index 1a60969738026fc83dfc5151fdfa2e47da757180..44440ce20cd2cd58a6bc81f20e157005143ee185 100644
--- a/ansi-tests/ansi-aux.lsp
+++ b/ansi-tests/ansi-aux.lsp
@@ -1366,7 +1366,7 @@ the condition to go uncaught if it cannot be classified."
 	  (unuse-package package using-package)))
       (delete-package package))))
 
-#-allegro
+#-(or allegro openmcl)
 (defun delete-all-versions (pathspec)
   "Replace the versions field of the pathname specified by pathspec with
    :wild, and delete all the files this refers to."
@@ -1374,13 +1374,14 @@ the condition to go uncaught if it cannot be classified."
 	 (truenames (directory wild-pathname)))
     (mapc #'delete-file truenames)))    
 
-(defconstant +fail-count-limit+ 20)
-
-;;; This is a hack to get around an ACL bug
-#+allegro
+;;; This is a hack to get around an ACL bug; OpenMCL also apparently
+;;; needs it
+#+(or allegro openmcl)
 (defun delete-all-versions (pathspec)
   (when (probe-file pathspec) (delete-file pathspec)))
 
+(defconstant +fail-count-limit+ 20)
+
 (defmacro test-with-package-iterator (package-list-expr &rest symbol-types)
   "Build an expression that tests the with-package-iterator form."
   (let ((name (gensym))