diff --git a/set-timeouts.lisp b/set-timeouts.lisp
index bfe094e..4ca9920 100644
--- a/set-timeouts.lisp
+++ b/set-timeouts.lisp
@@ -52,6 +52,12 @@ set."
   (when write-timeout
     (setf (sb-bsd-sockets:sockopt-send-timeout (usocket:socket usocket)) write-timeout))
   #+:ecl
+  (when read-timeout
+    (setf (sb-bsd-sockets:sockopt-receive-timeout (usocket:socket usocket)) read-timeout))
+  #+:clasp
+  (when write-timeout
+    (setf (sb-bsd-sockets:sockopt-send-timeout (usocket:socket usocket)) write-timeout))
+  #+:clasp
   (when read-timeout
     (setf (sb-bsd-sockets:sockopt-receive-timeout (usocket:socket usocket)) read-timeout))
   #+:openmcl
@@ -67,5 +73,5 @@ set."
   #+:cmu
   (setf (lisp::fd-stream-timeout (usocket:socket-stream usocket))
         (coerce read-timeout 'integer))
-  #-(or :clisp :ecl :openmcl :sbcl :cmu)
+  #-(or :clisp :ecl :clasp :openmcl :sbcl :cmu)
   (not-implemented 'set-timeouts))