diff --git a/test/echo-server.scm b/test/echo-server.scm
index 596fc49..96a8c68 100644
--- a/test/echo-server.scm
+++ b/test/echo-server.scm
@@ -12,7 +12,7 @@
            (let loop ()
              (receive (data type) (receive-message)
                       (unless (eq? type 'connection-close)
-                              (send-message type data)
+                              (send-message data type)
                               (loop))))))))
 
 (debug-log (current-output-port))