diff --git a/src/main/connection.cl b/src/main/connection.cl
index c8ba17f..5811cdf 100644
--- a/src/main/connection.cl
+++ b/src/main/connection.cl
@@ -25,7 +25,7 @@
   "List of states that a connection can be in.")
 
 (defclass connection ()
-  ((state :initarg :stage :initform :fresh :accessor connection-state)))
+  ((state :initarg :state :initform :fresh :accessor connection-state)))
 
 (defgeneric connection-stream (connection))