X-Git-Url: https://git.distorted.org.uk/~mdw/sod/blobdiff_plain/71ecc48e20c8651175b16f37ee66ca08a36cc1c6..a07d8d005f69c0f9f5da2e09c6ee39cb1e1801aa:/class-builder.lisp

diff --git a/class-builder.lisp b/class-builder.lisp
index 7acbeae..59dd4ee 100644
--- a/class-builder.lisp
+++ b/class-builder.lisp
@@ -129,7 +129,7 @@
 
   ;; If no nickname, copy the class name.  It won't be pretty, though.
   (default-slot (class 'nickname)
-    (get-property pset :nick :id (slot-value class 'name)))
+    (get-property pset :nick :id (string-downcase (slot-value class 'name))))
 
   ;; If no metaclass, guess one in a (Lisp) class-specific way.
   (default-slot (class 'metaclass)