--- a/Metaclass.st	Fri Nov 08 15:38:22 1996 +0100
+++ b/Metaclass.st	Fri Nov 08 16:14:31 1996 +0100
@@ -1340,7 +1340,7 @@
      (but thats how its defined in the book - maybe I will change it anyway).
     "
 
-    |superClassInstVarNames|
+    |superClassInstVarNames names idx|
 
 "/    superClassInstVarNames := aClass allInstVarNames asSet.
 "/
@@ -1364,9 +1364,9 @@
     ].
 
     "let user confirm, if any instvarname is no good"
-    (instVarNameString asCollectionOfWords 
-    findFirst:[:word | word first isUppercase]) ~~ 0 ifTrue:[
-        (self confirm:'instance variable names should start with a lowercase letter
+    names := instVarNameString asCollectionOfWords.
+    (idx := names findFirst:[:word | word first isUppercase]) ~~ 0 ifTrue:[
+        (self confirm:'instance variable name ''' , (names at:idx) , ''' should start with a lowercase letter
 (by convention only)
 
 install anyway ?' withCRs)
@@ -1376,9 +1376,9 @@
     ].
 
     "let user confirm, if any classvarname is no good"
-    (classVarNameString asCollectionOfWords 
-    findFirst:[:word | word first isLowercase]) ~~ 0 ifTrue:[
-        (self confirm:'class variable names should start with an uppercase letter
+    names := classVarNameString asCollectionOfWords. 
+    (idx := names findFirst:[:word | word first isLowercase]) ~~ 0 ifTrue:[
+        (self confirm:'class variable name ''' , (names at:idx) , ''' should start with an uppercase letter
 (by convention only)
 
 install anyway ?' withCRs)
@@ -1390,7 +1390,7 @@
     ^ true
 
     "Created: 15.10.1996 / 11:56:38 / cg"
-    "Modified: 15.10.1996 / 12:00:30 / cg"
+    "Modified: 8.11.1996 / 16:13:45 / cg"
 !
 
 checkForAliasesOf:oldClass with:newClass
@@ -1647,5 +1647,5 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.90 1996-11-07 16:36:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.91 1996-11-08 15:14:31 cg Exp $'
 ! !