function fixed = fixstring(str)
%FIXSTRING 
%

% Initial coding by A S Bozin, 6-1-97
% Copyright 1997-2000 The MathWorks, Inc.
% $Revision: 1.4 $ $Date: 2000/06/14 16:11:57 $

   if (isempty(str))
      fixed = str;				   % Quick return
   else
      ind = find(str == '/');
      if (isempty(ind))
	 fixed = str;
      else
	 strlen = size(str,2);
	 slash = '/';
	 fixed = slash(ones(1,strlen+size(ind,2)));
	 k = zeros(1,strlen);
	 k(ind) = 1;
	 fixed([1:strlen]+cumsum(k)) = str;
      end
   end
   return					   % Last card of FIXSTRING
