diff --git a/knots/non-blocking.scm b/knots/non-blocking.scm
index 5914143..f29713a 100644
--- a/knots/non-blocking.scm
+++ b/knots/non-blocking.scm
@@ -21,7 +21,7 @@
   #:use-module (web uri)
   #:use-module (web client)
   #:export (non-blocking-port
-            nonblocking-open-socket-for-uri))
+            non-blocking-open-socket-for-uri))
 
 (define (non-blocking-port port)
   "Make PORT non-blocking and return it."
@@ -30,8 +30,8 @@
       (fcntl port F_SETFL (logior O_NONBLOCK flags)))
     port))
 
-(define* (nonblocking-open-socket-for-uri uri
-                                          #:key (verify-certificate? #t))
+(define* (non-blocking-open-socket-for-uri uri
+                                           #:key (verify-certificate? #t))
   (define tls-wrap
     (@@ (web client) tls-wrap))
 
diff --git a/tests/non-blocking.scm b/tests/non-blocking.scm
index 0f81f58..25efee8 100644
--- a/tests/non-blocking.scm
+++ b/tests/non-blocking.scm
@@ -26,6 +26,6 @@
       (response-code
        (http-get
         uri
-        #:port (nonblocking-open-socket-for-uri uri)))))))
+        #:port (non-blocking-open-socket-for-uri uri)))))))
 
 (display "non-blocking test finished successfully\n")
diff --git a/tests/web-server.scm b/tests/web-server.scm
index 5a76d0f..0254795 100644
--- a/tests/web-server.scm
+++ b/tests/web-server.scm
@@ -25,6 +25,6 @@
       (response-code
        (http-get
         uri
-        #:port (nonblocking-open-socket-for-uri uri)))))))
+        #:port (non-blocking-open-socket-for-uri uri)))))))
 
 (display "web-server test finished successfully\n")