shr mit std_logic_vector und signed

Hallo -

Folgendes Problem:

library ieee;
use ieee.std_logic_1164.all;
use ieee.std_logic_arith.all;
use ieee.std_logic_unsinged.all;

..
..

(das hier funktioniert)

test := shr(input,count);

(nun soll input signed werden)

s_input := signed(input);

test := shr(s_input,count);    <<<<< funktioniert nicht!!

Das Signal input ist ein std_logic_vector(16 downto 0), und ist 
eigentlich ein signed.

Die numeric_std darf ich nicht verwenden..
Wie kann ich den input konvertieren, so dass die shr Funktion 
funktioniert?

Wäre sehr dankbar!

Mark