[Pharo-project] ClassBuilder depending -in some way- on text

[Guillermo Polito]

ClassBuilder>>validateClassName: aString
    "Validate the new class name"
    | allowed |
    aString isSymbol
        ifFalse: [ ^ false ].
    allowed := ($0 to: $9), {$_}, ($A to: $Z), ($a to: $z).
    (aString detect: [:c | (allowed includes: c) not] ifNone: [ ])
        ifNotNil: [ :c | self error: 'Invalid character: ''', c
printString, ''''.
            ^ false].
    aString first canBeGlobalVarInitial ifFalse:[
        self error: 'Class names must be capitalized'.
        ^false].
    environ at: aString ifPresent:[:old|
        (old isKindOf: Behavior) ifFalse:[
            *self notify: aString asText allBold, *
                        ' already exists!\Proceed will store over it.'
withCRs]].
    ^ true


Is it right to do that asText allBold there? :S
Shouldn't an exception be raised instead?

Do I open a ticket?

Guille