diff --git a/dl.m b/dl.m
index 0f0a012e23084352869fa4229f56b997f79a1575..eaab152d393bf9c6962ff7c2da4c498a84a21b9a 100644
--- a/dl.m
+++ b/dl.m
@@ -26,6 +26,9 @@ function [a_out, b_out]=dl(x)
 % $Revision$
 %
 % $Log$
+% Revision 3.4  2009/03/24 08:32:09  marwan
+% copyright address changed
+%
 % Revision 3.3  2005/11/23 07:29:14  marwan
 % help text updated
 %
@@ -89,7 +92,7 @@ if any(x(:))
     
   %  for i1=-ceil(N(2)/2):ceil(N(2)/2); temp=diag(x,i1); X(1:length(temp),1+i1+ceil(N(2)/2))=temp;
   %  end, x=double(X);
-    x1=spdiags(x);
+    x1=spdiags(double(x));
     z=reshape(x1,size(x1,1)*size(x1,2),1);
     z2(2:length(z)+1)=z;z2(1)=0;z2(end+1)=0;
     z=diff(z2);