--- a/ClassBuilder.st	Wed Feb 08 16:16:48 2006 +0100
+++ b/ClassBuilder.st	Wed Feb 08 16:32:56 2006 +0100
@@ -402,8 +402,8 @@
     (oldClass isBehavior and:[oldClass isLoaded]) ifFalse:[
         oldClass := nil.
 
-        (buildingPrivateClass and:[Compiler warnSTXSpecials]) ifTrue:[
-            (self confirm:('support for private classes is an ST/X extension.\\continue ?') withCRs)
+        (buildingPrivateClass and:[ParserFlags warnings and:[ParserFlags warnSTXSpecials]]) ifTrue:[
+            (self confirm:('Support for private classes is an ST/X extension.\\continue ?') withCRs)
             ifFalse:[^ nil].
         ].
     ] ifTrue:[
@@ -2040,5 +2040,5 @@
 !ClassBuilder class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.45 2005-04-12 17:16:24 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassBuilder.st,v 1.46 2006-02-08 15:32:56 cg Exp $'
 ! !