Hi Casimiro,
it would help if you would provide receiver class information.
Otherwise, I see I probably messed up the horrific Stream hierarchy !
I will revert this change until a better fix - mean more tests .

Cheers

2009/11/17 Casimiro de Almeida Barreto <casimiro.barreto at gmail.com>:
> After today's update, the following code:
>
>    [ fHandle atEnd ] whileFalse: [
>        stringFromFile := fHandle nextLine.
>        draw := Draw newFromString: stringFromFile.
>        draw isNil
>            ifTrue: [
>                Transcript show: 'Failed to load draw.'; cr.
>                fHandle close.
>                ^nil ].
>        model draws addLast: draw ].
>
> Results in the following error:
>
> nextLine
>    "Answer next line (may be empty), or nil if at end.
>    Handle a zoo of line delimiters CR, LF, or CR-LF pair"
>
>    | newStream element crlf |
>    self atEnd ifTrue: [^nil].
>    crlf := CharacterSet crlf.
>    newStream := WriteStream on: (collection species new: 100).
>    [self atEnd ifTrue: [^newStream contents].
>    crlf includes: (element := self next)]
>        whileFalse: [newStream nextPut: element].
>    element = Character cr ifTrue: [self peekFor: Character lf]. "handle
> an eventual CR LF pair"
>    ^newStream contents
>
> =============================================================
>
> new: sizeRequested
>    "Answer an initialized instance of this class with the number of
> indexable
>    variables specified by the argument, sizeRequested."
>
>    ^ (self basicNew: sizeRequested) initialize
>
> =============================================================
>
> basicNew: sizeRequested
>    "Primitive. Answer an instance of this class with the number
>    of indexable variables specified by the argument, sizeRequested.
>    Fail if this class is not indexable or if the argument is not a
>    positive Integer, or if there is not enough memory available.
>    Essential. See Object documentation whatIsAPrimitive."
>
>    <primitive: 71>
>    self isVariable ifFalse:
>        [self error: self printString, ' cannot have variable sized
> instances'].
>    (sizeRequested isInteger and: [sizeRequested >= 0]) ifTrue:
>        ["arg okay; space must be low."
>        self environment signalLowSpace.
>        ^ self basicNew: sizeRequested  "retry if user proceeds"].
>    self primitiveFailed
>
> =============================================================
>
> error: aString
>    "Throw a generic Error exception."
>
>    ^Error new signal: aString
>
> Error: UndefinedObject cannot have variable sized instances
>
>
>
>
>
>