[Bug] ? Rotating a window via halo causes an exception

I try to rotate a window via halo but it causes an exception because Color object does not understand width: color message. How to fix it? As far as I remember in previos versions all worked.

-------------------------------------------------------------------------------------------------------------------------------------------

borderStyle
    "Work around the borderWidth/borderColor pair"

    | style |
    borderColor ifNil: [^BorderStyle default].
    borderWidth isZero ifTrue: [^BorderStyle default].
    style := self valueOfProperty: #borderStyle ifAbsent: [BorderStyle default].
    (borderWidth = style width and:
            ["Hah! Try understanding this..."

            borderColor == style style or:
                    ["#raised/#inset etc"

                    #simple == style style and: [borderColor = style color]]])
        ifFalse:
            [style := borderColor isColor
                ifTrue: [BorderStyle width: borderWidth color: borderColor]  " ----> this string causes  an exception"
                ifFalse: [(BorderStyle perform: borderColor) width: borderWidth    "argh."].
            self setProperty: #borderStyle toValue: style].
    ^style trackColorFrom: self

Thank you, I will try