diff --git a/test/script-support.lisp b/test/script-support.lisp
index 39b8be0803185e94186d0de7ef8565b71d22c426..c798af6cb6ebf4ffb872d49e5c259d9095bf629f 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -340,8 +340,13 @@ is bound, write a message and exit on an error.  If
   `(call-quietly #'(lambda () ,@body)))
 
 (defun call-quietly (thunk)
+  #-allegro
   (handler-bind (#+sbcl (sb-kernel:redefinition-warning #'muffle-warning))
-    (funcall thunk)))
+    (funcall thunk))
+  #+allegro
+  (excl:without-redefinition-warnings
+   (funcall thunk))
+  )
 
 (defun interactive-test (&optional files)
   (verbose t nil)