diff --git a/src/@x13/subsref.m b/src/@x13/subsref.m
index 80466b1c8e223bf7ef051bbccd5afec424367866..82f0be3b2b9a02212ddb19d7b9435bad1bc7d39d 100644
--- a/src/@x13/subsref.m
+++ b/src/@x13/subsref.m
@@ -53,7 +53,7 @@ switch S(1).type
                             o.(S(1).subs) = setoption(o.(S(1).subs), S(2).subs{i}, S(2).subs{i+1});
                             checkoptioncompatibility(o);
                         else
-                            disp(sprintf('Option %s is not available in block %s!', S(2).subs{i}, S(1).subs))
+                            fprintf('Option %s is not available in block %s!', S(2).subs{i}, S(1).subs);
                         end
                     end
                 end
@@ -96,44 +96,39 @@ switch S(1).type
 end
 
 %@test:1
-%$ t = zeros(1,5);
+%$ t = zeros(4,1);
 %$ o = x13();
 %$
 %$ try
-%$     o(arima);
+%$     o.unicorn;
 %$     t(1) = false;
 %$ catch
 %$     t(1) = true;
 %$ end
 %$
 %$ try
-%$     o.unicorn;
-%$     t(2) = false;
+%$    o.x11('onearg','onevalue','twoargs');
+%$    t(2) = false;
 %$ catch
 %$     t(2) = true;
 %$ end
 %$
 %$ try
-%$     o.x11('onearg','onevalue','twoargs');
+%$     addpath(sprintf('%s/tests/fake', dseries_src_root))
+%$     o.x11('unicorn','yes please');
+%$     o.x11.unicorn;
+%$     rmpath(sprintf('%s/tests/fake', dseries_src_root))
 %$     t(3) = false;
 %$ catch
 %$     t(3) = true;
 %$ end
 %$
 %$ try
-%$     o.x11('unicorn','yes please');
-%$     o.x11.unicorn;
+%$     o.print.unicorn;
 %$     t(4) = false;
 %$ catch
 %$     t(4) = true;
 %$ end
 %$
-%$ try
-%$     o.print.unicorn;
-%$     t(5) = false;
-%$ catch
-%$     t(5) = true;
-%$ end
-%$
 %$ T = all(t);
 %@eof:1
\ No newline at end of file