X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/26c5ecfef79e0158c3ea38e9c32ad1fe3e85be3e..3c46cb3a94f2407959c3f5899f87f763a3e3865c:/src/fragment-parse.lisp

diff --git a/src/fragment-parse.lisp b/src/fragment-parse.lisp
index 8e32b07..c958da3 100644
--- a/src/fragment-parse.lisp
+++ b/src/fragment-parse.lisp
@@ -98,7 +98,7 @@
 	      ((or #\) #\] #\})
 	       (if (eql it delim)
 		   (setf delim (pop stack))
-		   (cerror* "Unmatched `~C.'." it)))
+		   (cerror* "Unmatched `~C'" it)))
 
 	      ;; String and character literals.
 	      ((seq ((quote (or #\" #\'))