--- a/ClassBuilder.st	Sat Apr 02 11:05:12 2016 +0100
+++ b/ClassBuilder.st	Sun Apr 03 07:04:52 2016 +0200
@@ -2140,9 +2140,8 @@
 
         ClassBuildWarning new
             className:className;
-            messageText:('%1: name "%2"\should start with an uppercase letter (by convention only)'withCRs
-                            bindWith:className 
-                            with:(names at:idx) allBold);
+            messageText:('Class Name "%1"\should start with an uppercase letter (by convention only)'withCRs
+                            bindWith:className allBold);
             raiseRequest.
 "/        (self confirm:('%1 name "%2" should start with an uppercase letter\(by convention only)\\install anyway ?'
 "/                         bindWith:what with:className) withCRs)