about summary refs log tree commit diff
diff options
context:
space:
mode:
-rw-r--r--fun/wcl/wc.lisp5
1 files changed, 3 insertions, 2 deletions
diff --git a/fun/wcl/wc.lisp b/fun/wcl/wc.lisp
index f443125a85b4..a3d5cd120629 100644
--- a/fun/wcl/wc.lisp
+++ b/fun/wcl/wc.lisp
@@ -21,9 +21,10 @@
         (counting is-newline into newlines)
 
         ;; Count every "word", unless the preceding character already
-        ;; was a space.
+        ;; was a space or we are at the beginning of the file.
         (when (or (eq space previous-byte)
-                  (eq newline previous-byte))
+                  (eq newline previous-byte)
+                  (not previous-byte))
           (next-iteration))
 
         (counting (or is-newline (eq space byte))