diff -p -up init_gcl.lsp.in.orig init_gcl.lsp.in
--- init_gcl.lsp.in.orig	2009-12-01 20:10:15.338222492 -0200
+++ init_gcl.lsp.in	2009-12-01 20:10:42.134221971 -0200
@@ -85,8 +85,8 @@
    (cond ((si::get-command-arg "-batch")
 	  (setq si::*top-level-hook* 'bye))
 	 ((si::get-command-arg "-f"))
-	 (t (format t si::*system-banner*)
-	    (format t "Temporary directory for compiler files set to ~a~%" *tmp-dir*)))
+	 (t (format nil si::*system-banner*)
+	    (format nil "Temporary directory for compiler files set to ~a~%" *tmp-dir*)))
    (setq si::*ihs-top* 1)
    (in-package 'system::user) (incf system::*ihs-top* 2)
    (funcall system::*old-top-level*))