diff --git a/contrib/sockets/sockets.lisp b/contrib/sockets/sockets.lisp
index 9c360d555..9202122ab 100755
--- a/contrib/sockets/sockets.lisp
+++ b/contrib/sockets/sockets.lisp
@@ -845,7 +845,7 @@ also known as unix-domain sockets."))
 ##endif
         sockaddr.sun_family = #2;
         strncpy(sockaddr.sun_path,#1,sizeof(sockaddr.sun_path));
-	sockaddr.sun_path[sizeof(sockaddr.sun_path)-1] = '\0';
+	sockaddr.sun_path[sizeof(sockaddr.sun_path)-1] = 0;
 
 	ecl_disable_interrupts();
 	output = bind(#0,(struct sockaddr*)&sockaddr, sizeof(struct sockaddr_un));
@@ -895,7 +895,7 @@ also known as unix-domain sockets."))
 ##endif
         sockaddr.sun_family = #1;
         strncpy(sockaddr.sun_path,#2,sizeof(sockaddr.sun_path));
-	sockaddr.sun_path[sizeof(sockaddr.sun_path)-1] = '\0';
+	sockaddr.sun_path[sizeof(sockaddr.sun_path)-1] = 0;
 
 	ecl_disable_interrupts();
 	output = connect(#0,(struct sockaddr*)&sockaddr, sizeof(struct sockaddr_un));