diff --git a/libguile/posix.c b/libguile/posix.c
index fd98dc882..813cda850 100644
--- a/libguile/posix.c
+++ b/libguile/posix.c
@@ -1198,8 +1198,8 @@ SCM_DEFINE (scm_mknod, "mknod", 4, 0, 0,
 	    "being created.\n\n"
 	    "E.g.,\n"
 	    "@example\n"
-	    "(mknod \"/dev/fd0\" 'block-special #o660 (+ (* 2 256) 2))"
-	    "@end example\n"
+	    "(mknod \"/dev/fd0\" 'block-special #o660 (+ (* 2 256) 2))\n"
+	    "@end example\n\n"
 	    "The return value is unspecified.")
 #define FUNC_NAME s_scm_mknod
 {
diff --git a/libguile/ramap.c b/libguile/ramap.c
index 704976acd..679439177 100644
--- a/libguile/ramap.c
+++ b/libguile/ramap.c
@@ -813,6 +813,7 @@ SCM_REGISTER_PROC(s_array_copy_in_order_x, "array-copy-in-order!", 2, 0, 0, scm_
 
 SCM_DEFINE (scm_array_copy_x, "array-copy!", 2, 0, 0,
 	    (SCM src, SCM dst),
+	    "@deffnx primitive array-copy-in-order! src dst\n"
 	    "Copies every element from vector or array @var{source} to the\n"
 	    "corresponding element of @var{destination}.  @var{destination} must have\n"
 	    "the same rank as @var{source}, and be at least as large in each\n"
@@ -1495,6 +1496,7 @@ SCM_REGISTER_PROC(s_array_map_in_order_x, "array-map-in-order!", 2, 0, 1, scm_ar
 
 SCM_DEFINE (scm_array_map_x, "array-map!", 2, 0, 1,
 	    (SCM ra0, SCM proc, SCM lra),
+	    "@deffnx primitive array-map-in-order! ra0 proc . lra\n"
 	    "@var{array1}, @dots{} must have the same number of dimensions as\n"
 	    "@var{array0} and have a range for each index which includes the range\n"
 	    "for the corresponding index in @var{array0}.  @var{proc} is applied to\n"
diff --git a/libguile/socket.c b/libguile/socket.c
index 37c44a1b8..47166e1ca 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -696,7 +696,8 @@ SCM_DEFINE (scm_recv, "recv!", 2, 1, 0,
 	    "The optional @var{flags} argument is a value or\n"
 	    "bitwise OR of MSG_OOB, MSG_PEEK, MSG_DONTROUTE etc.\n\n"
 	    "The value returned is the number of bytes read from the socket.\n\n"
-	    "Note that the data is read directly from the socket file descriptor:any unread buffered port data is ignored.")
+	    "Note that the data is read directly from the socket file descriptor:\n"
+	    "any unread buffered port data is ignored.")
 #define FUNC_NAME s_scm_recv
 {
   int rv;
diff --git a/libguile/stime.c b/libguile/stime.c
index 460e8f3a9..f44e003c3 100644
--- a/libguile/stime.c
+++ b/libguile/stime.c
@@ -220,7 +220,8 @@ SCM_DEFINE (scm_get_internal_run_time, "get-internal-run-time", 0, 0, 0,
 
 SCM_DEFINE (scm_current_time, "current-time", 0, 0, 0,
            (void),
-	    "Returns the number of seconds since 1970-01-01 00:00:00 UTC, excludingleap seconds.")
+	    "Returns the number of seconds since 1970-01-01 00:00:00 UTC, excluding\n"
+	    "leap seconds.")
 #define FUNC_NAME s_scm_current_time
 {
   timet timv;
@@ -660,7 +661,7 @@ SCM_DEFINE (scm_strptime, "strptime", 2, 0, 0,
 	    "but the time zone components\n"
 	    "are not usefully set.\n"
 	    "The CDR reports the number of characters from @var{string} which\n"
-	    "vwere used for the conversion.")
+	    "were used for the conversion.")
 #define FUNC_NAME s_scm_strptime
 {
   struct tm t;