Add missing string-to-int form.

diff --git a/chess-network.el b/chess-network.el
index 143e758704537516935d60ec83804989535ab972..ea181fce5ac3172d1f97bb071399aa5e2514a670 100644 (file)
--- a/chess-network.el
+++ b/chess-network.el
@@ -120,7 +120,8 @@
                  (if (fboundp 'open-network-stream-server)
                      (open-network-stream-server "*chess-network*"
                                                  (current-buffer)
-                                                 (read-string "Port: "))
+                                                 (string-to-int
+                                                  (read-string "Port: ")))
                    (start-process "*chess-network*"
                                   (current-buffer) "/usr/bin/nc"
                                   "-l" "-p" (read-string "Port: ")))