OpenEuphoria

I get this error when calling Win32 API TextOut():

A machine-level exception occurred during execution of this statement (signal 5)  
    hDC = 1476465858 
    left = 10 
    top = 10 
    text = {116't',101'e',115's',116't'} 
    pUnicode = 36167784 
    result = <no value> 

public procedure TextOut(atom hDC, integer left, integer top, sequence text) 
atom pUnicode, result 
     
    pUnicode = allocate_unicode(text)  
    result = c_func(iTextOut,{hDC, pUnicode,left,top,length(text)})