diff --git a/src/tests/regressions/ansi.lsp b/src/tests/regressions/ansi.lsp
index fb4fad3ed..2cdcd2cb4 100644
--- a/src/tests/regressions/ansi.lsp
+++ b/src/tests/regressions/ansi.lsp
@@ -64,7 +64,7 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; 22.* Format tests   ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;
-(defun fmt (stream argument colonp atsignp &rest params)
+(defun cl-user::fmt (stream argument colonp atsignp &rest params)
   (declare (ignore argument colonp atsignp))
   (format stream "~S~%" params))