Index: /trunk/source/library/cover.lisp
===================================================================
--- /trunk/source/library/cover.lisp	(revision 14476)
+++ /trunk/source/library/cover.lisp	(revision 14477)
@@ -688,5 +688,5 @@
           (multiple-value-bind (start end) (decode-file-range (code-note-acode-range note))
             (when (and start
-                       (setq start (position-if-not #'whitespacep acode :start start :end end)))
+                       (setq start (position-if-not #'whitespacep acode :start start :end end :key #'code-char)))
               (fill styles (style-for-coverage (code-note-code-coverage note))
                     :start start