diff --git a/lib/init-7.scm b/lib/init-7.scm
index 5021ca65..2634a34b 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -351,7 +351,9 @@
 (define (char-whitespace? ch)
   (if (eq? ch #\space)
       #t
-      (if (eq? ch #\tab) #t (if (eq? ch #\newline) #t (eq? ch #\return)))))
+      (if (eq? ch #\tab) #t (if (eq? ch #\newline)
+                                #t
+                                (if (eq? ch #\xC0) #f (eq? ch #\return))))))
 (define (char-upper-case? ch) (<= 65 (char->integer ch) 90))
 (define (char-lower-case? ch) (<= 97 (char->integer ch) 122))
 
diff --git a/sexp.c b/sexp.c
index 1deb8850..9216ed60 100644
--- a/sexp.c
+++ b/sexp.c
@@ -2125,6 +2125,7 @@ sexp sexp_read_raw (sexp ctx, sexp in) {
     goto scan_loop;
   case ' ':
   case '\t':
+  case '\f':
   case '\r':
     goto scan_loop;
   case '\'':