X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/sod/blobdiff_plain/a901948043335740e11bc47e6d34849bd36e403a..67678b0be4da2701655d3d52db205d815f0687ea:/src/class-finalize-impl.lisp

diff --git a/src/class-finalize-impl.lisp b/src/class-finalize-impl.lisp
index 320dabe..58dc508 100644
--- a/src/class-finalize-impl.lisp
+++ b/src/class-finalize-impl.lisp
@@ -447,7 +447,7 @@ (defmethod check-sod-class ((class sod-class))
   (let ((link (sod-class-chain-link class)))
     (unless (or (not link)
 		(member link (cdr (sod-class-precedence-list class))))
-      (cerror* "In `~A~, chain-to class `~A' is not a proper superclass"
+      (cerror* "In `~A', chain-to class `~A' is not a proper superclass"
 	       class link)))
 
   ;; Check that the initargs declare compatible types.  Duplicate entries,