X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/55f543faf8169dbf9da21f52ffb7442c7cb48bc0..3b92d2b13d6784a8e30babcf6def39d2ba05082f:/src/parser/scanner-charbuf-impl.lisp?ds=inline

diff --git a/src/parser/scanner-charbuf-impl.lisp b/src/parser/scanner-charbuf-impl.lisp
index 86c4445..773a9a1 100644
--- a/src/parser/scanner-charbuf-impl.lisp
+++ b/src/parser/scanner-charbuf-impl.lisp
@@ -389,7 +389,7 @@ (defmethod scanner-interval
 						    :index index))))
 	 (last-link (charbuf-scanner-place-link place-b)))
     (flet ((bad ()
-	     (error "Incorrect places ~S and ~S to `scanner-interval'."
+	     (error "Incorrect places ~S and ~S to `scanner-interval'"
 		    place-a place-b)))
       (do ((link (charbuf-scanner-place-link place-a)
 		 (charbuf-chain-link-next link))