--- a/scripts/testfun/runtests.m	Wed Apr 20 17:53:10 2016 +0200
+++ b/scripts/testfun/runtests.m	Wed Apr 20 11:06:03 2016 -0700
@@ -65,7 +65,7 @@
   flist = readdir (directory);
   dirs = {};
   no_tests = {};
-  fprintf ("Processing files in %s:\n\n", directory);
+  printf ("Processing files in %s:\n\n", directory);
   fflush (stdout);
   for i = 1:numel (flist)
     f = flist{i};
@@ -88,8 +88,8 @@
     endif
   endfor
   if (! isempty (no_tests))
-    fprintf ("\nThe following files in %s have no tests:\n\n", directory);
-    fprintf ("%s", list_in_columns (no_tests));
+    printf ("\nThe following files in %s have no tests:\n\n", directory);
+    printf ("%s", list_in_columns (no_tests));
   endif
 
   ## Recurse into class directories since they are implied in the path
@@ -134,24 +134,25 @@
 
 function print_pass_fail (n, p, xf)
   if (n > 0)
-    fprintf (" PASS %4d/%-4d", p, n);
+    printf (" PASS %4d/%-4d", p, n);
     nfail = n - p;
     if (nfail > 0)
       if (nfail != xf)
-        fprintf (" FAIL %d", nfail - xf);
+        printf (" FAIL %d", nfail - xf);
       else
-        fprintf (" XFAIL %d", xf);
+        printf (" XFAIL %d", xf);
       endif
     endif
   endif
-  fputs ("\n");
+  puts ("\n");
 endfunction
 
 function print_test_file_name (nm)
   filler = repmat (".", 1, 55-length (nm));
-  fprintf ("  %s %s", nm, filler);
+  printf ("  %s %s", nm, filler);
 endfunction
 
 
 %!error runtests ("foo", 1)
 %!error <DIRECTORY argument> runtests ("#_TOTALLY_/_INVALID_/_PATHNAME_#")
+