Hi Lispers,
I'm a total Lisp newbie working my way through the new Practical Common Lisp book and I've encountered an odd problem. Using these functions:

(defun prompt-read (prompt)
(format *query-io* "~a: " prompt)
(force-output *query-io*)
(read-line *query-io*))

(defun prompt-twice()
(prompt read (prompt-read "hello"))

Running this on the REPL: (prompt-twice)

Gives me the following output:
hello: hi
hi:

""
NIL

The program exits before I have a change to enter anything on the hi: line. Any Lisp guys out there wanna set me straight? I'm using Lisp in a Box on Suse 9.2 Pro.