X-Git-Url: https://git.distorted.org.uk/~mdw/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 @@
   (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,