diff --git a/gnu/usr.bin/man/catman/catman.perl b/gnu/usr.bin/man/catman/catman.perl
index f1645f9635da..d94f94927cb5 100644
--- a/gnu/usr.bin/man/catman/catman.perl
+++ b/gnu/usr.bin/man/catman/catman.perl
@@ -26,7 +26,7 @@
 #
 # /usr/bin/catman - preformat man pages
 #
-# $Id: catman.perl,v 1.10 1997/02/22 15:47:00 peter Exp $
+# $Id: catman.perl,v 1.11 1998/05/01 13:27:27 des Exp $
 
 
 sub usage {
@@ -176,7 +176,7 @@ sub catdir_create {
     $catdir = &man2cat($subdir);
     if (-d $catdir) {
 	return 1 if -w _;
-	if (!chmod(755, $catdir)) {
+	if (!chmod(0755, $catdir)) {
 	    warn "Cannot write $catdir, chmod: $!\n";
 	    $exit = 1;
 	    return 0;
diff --git a/gnu/usr.bin/man/makewhatis/makewhatis.perl b/gnu/usr.bin/man/makewhatis/makewhatis.perl
index b3ceeaa20ca7..841c2c0e6e16 100644
--- a/gnu/usr.bin/man/makewhatis/makewhatis.perl
+++ b/gnu/usr.bin/man/makewhatis/makewhatis.perl
@@ -26,13 +26,13 @@
 #
 # makewhatis -- update the whatis database in the man directories.
 #
-# $Id: makewhatis.perl,v 1.16 1997/03/14 21:58:43 wosch Exp $
+# $Id: makewhatis.perl,v 1.17 1997/07/04 22:32:59 wosch Exp $
 
 
 sub usage {
 
     warn <<EOF;
-usage: makewhatis [-a|-append ] [-h|-help] [-i|-indent colum]
+usage: makewhatis [-a|-append ] [-h|-help] [-i|-indent column]
                   [-n|-name name] [-o|-outfile file] [-v|-verbose] 
                   [directories ...]
 EOF