diff --git a/ansi-tests/random-aux.lsp b/ansi-tests/random-aux.lsp
index 7e079a2b3632e958768a6818fe8d5f7cb03b8ae3..2f91e35606793735eee036e220e479dc4d500346 100644
--- a/ansi-tests/random-aux.lsp
+++ b/ansi-tests/random-aux.lsp
@@ -294,7 +294,6 @@
 (defun positive-integer-qualifier-p (qualifiers)
   (typep qualifiers '(cons (integer 1) null)))
 
-#-armedbear
 (define-method-combination randomized nil ((method-list positive-integer-qualifier-p))
   (assert method-list)
   (let ((clauses (mapcar #'(lambda (method)
@@ -303,5 +302,3 @@
                          method-list)))
   `(loop (catch 'fail (return (rcase ,@clauses))))))
 
-#+armedbear
-(warn "ABCL doesn't support the long form of DEFINE-METHOD-COMBINATION; randomized testing disabled.")