diff --git a/matlab/utilities/tests/get_directory_description.m b/matlab/utilities/tests/get_directory_description.m
index 674af2f8ae29eaf74f7d842fff2e390f8fd81bcf..3be45da11da0847da76fa9406d97c1b4d1027111 100644
--- a/matlab/utilities/tests/get_directory_description.m
+++ b/matlab/utilities/tests/get_directory_description.m
@@ -24,10 +24,11 @@ file = 1;
 for f=1:length(dd)
     if ~(isequal(dd(f).name,'.') || isequal(dd(f).name,'..'))
         if dd(f).isdir
-            flist(file) = { get_directory_description([ basedir filesep dd(f).name]) };
+            r = get_directory_description([ basedir filesep dd(f).name]);
+            flist = { flist{:} r{:} };
         else
-            flist(file) = { [basedir filesep dd(f).name] };
+            flist{length(flist)+1} = [basedir filesep dd(f).name];
         end
         file = file + 1; 
     end
-end
\ No newline at end of file
+end
diff --git a/matlab/utilities/tests/run_unitary_tests.m b/matlab/utilities/tests/run_unitary_tests.m
index 86885f880789957b02f2b319489170e07669f50e..b20d6c959b4a89c0631de4d2c5c89b33a50c49d3 100644
--- a/matlab/utilities/tests/run_unitary_tests.m
+++ b/matlab/utilities/tests/run_unitary_tests.m
@@ -20,22 +20,17 @@ function [report, time] = run_unitary_tests(listoffiles)
 report = {};
     
 for f=1:length(listoffiles)
-    if iscell(listoffiles{f})
-        info = run_unitary_tests(listoffiles{f});
-        report = [report; info];
-    else
-        if isequal(listoffiles{f}(end-1:end),'.m') && isempty(strfind(listoffiles{f},'.#'))
-            if is_unitary_test_available(listoffiles{f})
-                disp(['***** Process unitary tests in      ' listoffiles{f}])
-                [check, info] = mtest(listoffiles{f});
-                report = [report; info];
-            else
-                disp(['Booh! No unitary tests available in ' listoffiles{f}])
-            end
+    if isequal(listoffiles{f}(end-1:end),'.m') && isempty(strfind(listoffiles{f},'.#'))
+        if is_unitary_test_available(listoffiles{f})
+            disp(['***** Process unitary tests in      ' listoffiles{f}])
+            [check, info] = mtest(listoffiles{f});
+            report = [report; info];
+        else
+            disp(['Booh! No unitary tests available in ' listoffiles{f}])
         end
     end
 end
 
 if nargout>1
     time = clock;
-end
\ No newline at end of file
+end