Index: trunk/lisp/lmio/qfile.lisp
===================================================================
--- trunk/lisp/lmio/qfile.lisp	(revision 239)
+++ trunk/lisp/lmio/qfile.lisp	(revision 240)
@@ -1029,5 +1029,7 @@
 (DEFUN FORCE-USER-TO-LOGIN (&OPTIONAL (HOST USER-LOGIN-MACHINE))
   (COND ((OR (NULL USER-ID) (STRING-EQUAL USER-ID ""))
-	 (FORMAT QUERY-IO "~&Host is ~A, login name or host:login name: " HOST)
+	 (FORMAT QUERY-IO
+		 "~&Please log in.  Type username or host:username (host defaults to ~A): "
+		 HOST)
 	 (LET ((INPUT (READLINE QUERY-IO))
 	       (COLON))