diff --git a/scsh/network.scm b/scsh/network.scm
index 12b7a94..0ad8be6 100644
--- a/scsh/network.scm
+++ b/scsh/network.scm
@@ -570,15 +570,15 @@
 	((value-option? option)
 	 (%getsockopt (socket->fdes sock) level option))
 	((linger-option? option)
-	 (apply (%getsockopt-linger (socket->fdes sock) level option)
-		(lambda  (result/on-off time)
-		  (if (= result/on-off 0) #f time))))
+	 (apply (lambda  (result/on-off time)
+		  (if (= result/on-off 0) #f time))
+		(%getsockopt-linger (socket->fdes sock) level option)))
 	((timeout-option? option)
-	 (apply (%getsockopt-timeout (socket->fdes sock) level option)
-		(lambda (result/secs usecs)
+	 (apply (lambda (result/secs usecs)
 		  (cond ((= result/secs -1) 
 			 (error "socket-option ~s ~s ~s" sock level option))
-			(else (+ result/secs (/ usecs 1000)))))))
+			(else (+ result/secs (/ usecs 1000)))))
+		(%getsockopt-timeout (socket->fdes sock) level option)))
 	(else
 	 "socket-option: unknown option type ~s" option)))