I might be too late ;) My solution to this question would be

(define (index-of s lst) 
    (if (member s lst) 
        (- (length lst) (length (member s lst))) 
        '()))