--- a/Metaclass.st	Tue Feb 02 22:40:51 1999 +0100
+++ b/Metaclass.st	Wed Feb 03 11:55:06 1999 +0100
@@ -1480,10 +1480,10 @@
      (but thats how its defined in the book - maybe I will change it anyway).
     "
 
-    |names idx what doChecks|
+    |names idx what doChecks answ|
 
     doChecks := ConfirmationQuerySignal raise.
-    doChecks ifFalse:[^ true].
+    doChecks == false ifTrue:[^ true].
 
     "let user confirm, if the classname is no good"
     className first isUppercase ifFalse:[
@@ -1493,6 +1493,9 @@
             what := 'class'
         ].
 
+        answ := Class classConventionViolationConfirmationQuerySignal raise.
+        answ notNil ifTrue:[^ answ].
+
         (self confirm:(what , ' name ''' , className , 
                              ''' should start with an uppercase letter
 (by convention only)
@@ -1507,6 +1510,9 @@
 
     "let user confirm, if any instvarname is no good"
     (idx := names findFirst:[:word | word first isUppercase]) ~~ 0 ifTrue:[
+        answ := Class classConventionViolationConfirmationQuerySignal raise.
+        answ notNil ifTrue:[^ answ].
+
         (self confirm:className , ': instance variable named ''' , (names at:idx) asText allBold , ''' 
 should start with a lowercase letter (by convention only).
 
@@ -1520,6 +1526,9 @@
 
     "let user confirm, if any classvarname is no good"
     (idx := names findFirst:[:word | word first isLowercase]) ~~ 0 ifTrue:[
+        answ := Class classConventionViolationConfirmationQuerySignal raise.
+        answ notNil ifTrue:[^ answ].
+
         (self confirm:className , ': class variable named ''' , (names at:idx) asText allBold  , ''' 
 should start with an uppercase letter (by convention only).
 
@@ -1531,8 +1540,8 @@
 
     ^ true
 
-    "Created: 15.10.1996 / 11:56:38 / cg"
-    "Modified: 31.7.1997 / 21:56:23 / cg"
+    "Created: / 15.10.1996 / 11:56:38 / cg"
+    "Modified: / 3.2.1999 / 11:24:52 / cg"
 !
 
 checkForAliasesOf:oldClass with:newClass
@@ -1975,6 +1984,6 @@
 !Metaclass class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.133 1998-08-29 15:01:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.134 1999-02-03 10:55:06 cg Exp $'
 ! !
 Metaclass initialize!