diff --git a/src/foreign/foreign.c b/src/foreign/foreign.c
index 86ab89913e..69b2775995 100644
--- a/src/foreign/foreign.c
+++ b/src/foreign/foreign.c
@@ -2138,8 +2138,8 @@ static Scheme_Object *abs_sym;
 
 /* (ptr-ref cpointer type [['abs] n]) -> the object at the given location */
 /* n defaults to 0 which is the only value that should be used with ffi_objs */
-/* if n is given, an 'abs flag can precede it to make n be a byte offset rather */
-/* than some multiple of sizeof(type). */
+/* if n is given, an 'abs flag can precede it to make n be a byte offset */
+/* rather than some multiple of sizeof(type). */
 /* WARNING: there are *NO* checks at all, this is raw C level code. */
 #define MYNAME "ptr-ref"
 static Scheme_Object *foreign_ptr_ref(int argc, Scheme_Object *argv[])
@@ -2191,8 +2191,8 @@ static Scheme_Object *foreign_ptr_ref(int argc, Scheme_Object *argv[])
 
 /* (ptr-set! cpointer type [['abs] n] value) -> void */
 /* n defaults to 0 which is the only value that should be used with ffi_objs */
-/* if n is given, an 'abs flag can precede it to make n be a byte offset rather */
-/* than some multiple of sizeof(type). */
+/* if n is given, an 'abs flag can precede it to make n be a byte offset */
+/* rather than some multiple of sizeof(type). */
 /* WARNING: there are *NO* checks at all, this is raw C level code. */
 #define MYNAME "ptr-set!"
 static Scheme_Object *foreign_ptr_set_bang(int argc, Scheme_Object *argv[])
diff --git a/src/foreign/foreign.ssc b/src/foreign/foreign.ssc
index ed8e5857b2..20bd47d594 100755
--- a/src/foreign/foreign.ssc
+++ b/src/foreign/foreign.ssc
@@ -1553,8 +1553,8 @@ static Scheme_Object *do_memop(const char *who, int mode,
 
 /* (ptr-ref cpointer type [['abs] n]) -> the object at the given location */
 /* n defaults to 0 which is the only value that should be used with ffi_objs */
-/* if n is given, an 'abs flag can precede it to make n be a byte offset rather */
-/* than some multiple of sizeof(type). */
+/* if n is given, an 'abs flag can precede it to make n be a byte offset */
+/* rather than some multiple of sizeof(type). */
 /* WARNING: there are *NO* checks at all, this is raw C level code. */
 @cdefine[ptr-ref 2 4]{
   int size=0; void *ptr; Scheme_Object *base;
@@ -1603,8 +1603,8 @@ static Scheme_Object *do_memop(const char *who, int mode,
 
 /* (ptr-set! cpointer type [['abs] n] value) -> void */
 /* n defaults to 0 which is the only value that should be used with ffi_objs */
-/* if n is given, an 'abs flag can precede it to make n be a byte offset rather
-/* than some multiple of sizeof(type). */
+/* if n is given, an 'abs flag can precede it to make n be a byte offset */
+/* rather than some multiple of sizeof(type). */
 /* WARNING: there are *NO* checks at all, this is raw C level code. */
 @cdefine[ptr-set! 3 5]{
   int size=0; void *ptr;