diff --git a/test/script-support.lisp b/test/script-support.lisp
index 5b3d083d1f817bfd9e051088380fa60edf8bb812..e0cf6b551619913a299d21599efc4dd8a61e2c37 100644
--- a/test/script-support.lisp
+++ b/test/script-support.lisp
@@ -155,7 +155,6 @@ Some constraints:
   (truename
    (make-pathname :name nil :type nil :version nil
                   :defaults (or *load-pathname* *compile-file-pathname* *default-pathname-defaults*))))
-(format t "bye, world~%")
 (defun make-sub-pathname (&rest keys &key defaults &allow-other-keys)
   (merge-pathnames (apply 'make-pathname keys) defaults))
 (defun relative-dir (&rest dir) #-gcl (cons ':relative dir) #+gcl dir)