2015-09-28: also report the line with the message name.

also report the line with the message name.

diff --git a/fcp.scm b/fcp.scm
--- a/fcp.scm
+++ b/fcp.scm
@@ -108,6 +108,7 @@
                 (let read-a-message ()
                   (define name (string->symbol
                                 (let ((line (read-line sock 'trim)))
+                                  (println (list 'line line))
                                   (when (eof-object? line)
                                         (error "Fffail"))
                                   line)))