вообщем вы сделали почти все правильно. вот только цвет возвращаемый (cadr (gimp-image-get-colormap img)) это массив байтов. а вам надо указать конкретный цвет, т.е список из 3 чисел, которые соответствуют первым трем элементам(для 0-го индекса) в полученном массиве. вот например функция которая делает это.

получили массив байтов, для изображения №3

 

(define t1 (cadr (gimp-image-get-colormap 3)))

(vector? t1) ;;#t

 

функция которая из массива создает список- цвет задаваемый индексом col.

 

(define (get-col-from-vect v col)

  (let* ((ind (* col 3)))

    (list (vector-ref v ind)

          (vector-ref v (+ ind 1))

          (vector-ref v (+ ind 2)))))

 

это аналог вашей функции:

 

(define (get-one-color img col)

  (let* ((layer (car (gimp-image-active-drawable img)) ))

    (gimp-image-select-color img CHANNEL-OP-ADD layer col)

    (gimp-displays-flush)

    ))

 

вот так вот создается выделение в 3-ем изображении для 19 го индекса:
(get-one-color 3 (get-col-from-vect t1 19))
для нулевого
(get-one-color 3 (get-col-from-vect t1 0))