diff --git a/textarchive/vlib001.pl b/textarchive/vlib001.pl
index cc6cba92afd298fe8d143a4137a21d98f61414f1..471741d9569c1bb7516fcaa9fa219a953a62329b 100755
--- a/textarchive/vlib001.pl
+++ b/textarchive/vlib001.pl
@@ -99,7 +99,7 @@ while (my $arg= shift (@ARGV))
     elsif ($arg eq '--subdir')   { push (@subdirs, shift (@ARGV)); }
     elsif ($arg eq '--cd')       { $cd_mode= 1; }
     elsif ($arg =~ /^--(refresh|verify|lookup|edit|maint|next-seq|get-cat)$/) { $op_mode= $1; }
-    else { &usage ("unknown option '$arg'"); }
+    else { &usage ("unknown option '--$arg'"); }
   }
   elsif ($arg =~ /^-/)
   {
@@ -240,7 +240,11 @@ exit (0);
 sub usage
 {
   my $msg= shift;
-  print $msg, "\n" if ($msg);
+  if ($msg)
+  {
+    print $msg, "\n";
+    sleep (10);
+  }
   system ('perldoc', $0);
   exit -1;
 }