diff -ru a/client.scm b/client.scm
--- a/client.scm        2020-04-02 19:24:56.300381477 +1300
+++ b/client.scm        2020-04-02 19:32:31.635210214 +1300
@@ -10,5 +10,6 @@
   (socket-connect unix-socket (unix-address pathname))
   (let ((number-of-bytes-sent (socket-send unix-socket message-to-send)))
     (printf "Number of bytes sent to the server: ~A~%" number-of-bytes-sent))
+  (print (socket-receive unix-socket 14))
   ;; Cleanup:
   (socket-close unix-socket))
diff -ru a/server.scm b/server.scm
--- a/server.scm        2020-04-02 19:24:56.300381477 +1300
+++ b/server.scm        2020-04-02 19:31:48.453841226 +1300
@@ -17,6 +17,7 @@
     ;; Report what was read:
     (printf "Data received from the client: '~A'~%" received-data)
     ;; Cleanup:
+    (socket-send connected-socket received-data)
     (socket-close connected-socket)
     (socket-close unix-socket)
     (delete-file socket-pathname)))