See ic-depress-base -> scm support