Solutions is to change (surface:get-surface :width width :height height :depth 32) in INIT to
(surface:get-surface :width width :height height :depth 32 :override :off) or get from github.
