[ltk-user] Calling all socket geniuses....

I just managed to introduce some bug. No idea where to look, thought someone strong on sockets/streams might have an idea. All my writes to Tk go thru this for debugging purposes. I can enable/disable/when-icize the write to standard output. (defun tk-send (fmt$ &rest args) "send a string to wish" (let ((text (apply 'format nil fmt$ args))) (format t "~A~%" text) (format (wish-stream *wish*) "~A~%" text) )) Now my test window does not come up without the trace. The window appears but no widgets, and the window is unresponsive. I have to have the Windows task manager kill it. Is this an easy "oh, I know what that is..." for anyone? thx, kenny