embeding a image in a image in the frquency domain

can any help me to correct this program. i tried to embed a copy right emblem image on a gray scale image in the frequency domain. i have done the embeding. its unable to extract. can anyone help me to debug this program.

clc;
clear all;
close all;

RONI=dicomread('189.dcm');
RONI = uint8(255*mat2gray(RONI));
% Display the Image
figure,imshow(RONI,[]);
title('input image');
wm=imread('images.jpg');
figure,imshow(wm);

%resizing the watermark image

out = bilinearInterpolation(wm, [256 256]);
% out=double(out);
  figure;
 imshow(out);
%integer wavelet lifting of host image
els = {'p',[-0.125 0.125],0};

lshaarInt = liftwave('haar','int2int');
lsnewInt = addlift(lshaarInt,els);

[LL,LH,HL,HH] = lwt2(double(RONI),lsnewInt);
figure,imshow(LH);
title(' LH band');

   %watermark embedding

   alpha=.05;
  for i=1:256
       for j=1:256
           HL1(i,j)=double(HL(i,j))+alpha*((out(i,j)));

       end
  end
    figure,imshow(HL1);
   title(' wm band');
   HL1=double(HL1);
  %inverse lifting
  stego = uint8(ilwt2(LL,LH,HL1,HH,lsnewInt));

figure,imshow(stego);

%extraction
%integer wavelet lifting of host image
els = {'p',[-0.125 0.125],0};

lshaarInt = liftwave('haar','int2int');
lsnewInt = addlift(lshaarInt,els);

[LL1,LH1,HL1,HH1] = lwt2(double(RONI),lsnewInt);

alpha=10;
for i=1:256
     for j=1:256
         w_extracted(i,j)=((HL(i,j)/HL1(i,j))-1)/alpha;   
     end
end
w_extracted=double(w_extracted);
figure,imshow(w_extracted);

[shimaa samy]

did u find the solution ?...plz i need help in the problem..i can not extract the secret message