Atelier crash

Hi,

I'm getting this crash in Atelier - does anyone know a fix?

      S ^PS("dbdata")=dbdata
            
            For item=1:1:$listlength(dbdata) {
                
                Set range=$list(dbdata,item),%end=$list(range,2)
                If %end'="" {
                    If $Extract(%end,*)=$Char(1) {
                        #; This is used for routine mappings
                        Set @("%end="_$Extract(%end,1,*-1)_"_$Char(1)")
                    } Else {
                      S ^PS("i")=item
                        Set @("%end="_%end)
                    }
                }

FHIRGATEWAY>s dbdata=^PS("dbdata")

FHIRGATEWAY>w dbdata
"HS.Local/""HS/"
"HS.LOCAL/""HS/""HSMOD.""HSMOD.*","rINC""HS."
                "HSMOD."
                        "HSMOD/"
FHIRGATEWAY>s range=$list(dbdata,3)

FHIRGATEWAY>w range

"HSMOD.""HSMOD.*","rINC"
FHIRGATEWAY>w $list(range,2)
"HSMOD.*","rINC"
FHIRGATEWAY>s @("x="_$list(range,2))

S @("x="_$LIST(range,2))
^
<SYNTAX>

It seems as though a comma in the range variable is throwing it?

Thanks,
-- Paul.