X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/08713508fa747fae29e357e8079038bd6fcc4e0b..7bfe3a370a6a56a0f097fc1e357ca8ac798d9d4b:/src/class-output.lisp

diff --git a/src/class-output.lisp b/src/class-output.lisp
index c74daa8..687b22c 100644
--- a/src/class-output.lisp
+++ b/src/class-output.lisp
@@ -436,7 +436,7 @@ const struct ~A ~A__classobj = {~%"
 		   (format nil "_cls_~A"
 			   (sod-class-nickname meta-chain-head))
 		   "_class")
-	       (sod-class-metaclass class)
+	       class
 	       (sod-class-nickname meta-chain-head)
 	       (sod-class-nickname metaclass))))))