@@ -81,11 +81,11 @@
 	  (print "// Filename: "fname)
 	  (process-file ignores fname))
 	files)
        (print "}")))
     (else
-     (print-err "Usage: plot-uses u1,u2... file1.scm ...")
+     (print-err "Usage: plot-uses todot u1,u2... file1.scm ...")
      (print-err "    where u1,u2... are units to ignore and file1.scm... are the files to process."))))
 
 (main)
 
 )