sicp pls

http://www.pastebay.net/1154964
I used the filter function for ex 1.3 sicp . But it fails for equal numbers.Please help

>>13

(define (mini c list) (if (null? (cdr list)) (smaller c (car list)) (mini (smaller c (car list)) (cdr list))))
(define (min list) (mini (car list) (cdr list)))

(define (smallest a-list)
  (cond ((null? (cdr a-list))  (car a-list))
        ((<= (car a-list)   (smallest ( cdr a-list))) (car a-list))
        (else (smallest(cdr a-list)))))