diff --git a/src/sockets/conditions.lisp b/src/sockets/conditions.lisp
index 7e35bc1de818676d32fa402666a03b3454ab9208..129b8f0b1a78ac47809eded8dbfae2122c8b2759 100644
--- a/src/sockets/conditions.lisp
+++ b/src/sockets/conditions.lisp
@@ -24,7 +24,7 @@
 (defmethod print-object ((socket-error socket-error) stream)
   (print-unreadable-object (socket-error stream :type t :identity nil)
     (let ((code (iolib.syscalls:code-of socket-error)))
-      (format stream "~S ~S ~S, FD: ~S"
+      (format stream "~S ~S ~S~@[, FD: ~S~]"
               (or code "[Unknown code]")
               (error-identifier socket-error)
               (if code (isys:strerror code) "[Can't get error string.]")