diff --git a/src/assuan-socket.c b/src/assuan-socket.c
--- a/src/assuan-socket.c
+++ b/src/assuan-socket.c
@@ -1495,3 +1495,9 @@
 {
   return _assuan_sock_check_nonce (sock_ctx, fd, nonce);
 }
+
+void
+assuan_sock_set_system_hooks (assuan_system_hooks_t system_hooks)
+{
+  _assuan_system_hooks_copy (&sock_ctx->system, system_hooks);
+}
diff --git a/src/assuan.h.in b/src/assuan.h.in
--- a/src/assuan.h.in
+++ b/src/assuan.h.in
@@ -490,6 +490,7 @@
 int assuan_sock_get_nonce (struct sockaddr *addr, int addrlen,
                            assuan_sock_nonce_t *nonce);
 int assuan_sock_check_nonce (assuan_fd_t fd, assuan_sock_nonce_t *nonce);
+void assuan_sock_set_system_hooks (assuan_system_hooks_t system_hooks);
 
 
 /* Set the default or per context system callbacks.  This is
diff --git a/src/libassuan.def b/src/libassuan.def
--- a/src/libassuan.def
+++ b/src/libassuan.def
@@ -115,6 +115,7 @@
     assuan_sock_set_flag                @94
     assuan_sock_get_flag                @95
     assuan_sock_connect_byname          @96
+    assuan_sock_set_system_hooks        @97
 
 ; END
 
diff --git a/src/libassuan.vers b/src/libassuan.vers
--- a/src/libassuan.vers
+++ b/src/libassuan.vers
@@ -106,6 +106,7 @@
     assuan_sock_set_flag;
     assuan_sock_get_flag;
     assuan_sock_connect_byname;
+    assuan_sock_set_system_hooks;
 
     __assuan_close;
     __assuan_pipe;