diff --git a/usr.sbin/adduser/adduser.perl b/usr.sbin/adduser/adduser.perl
index b6e57284848..256e27c50e3 100644
--- a/usr.sbin/adduser/adduser.perl
+++ b/usr.sbin/adduser/adduser.perl
@@ -24,7 +24,7 @@
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
 #
-# $Id: adduser.perl,v 1.40 1998/06/07 18:38:32 wosch Exp $
+# $Id: adduser.perl,v 1.41 1998/08/17 18:50:29 wosch Exp $
 
 
 # read variables
@@ -895,6 +895,7 @@ sub adduser_log {
     return 1 if $logfile eq "no";
 
     local($sec, $min, $hour, $mday, $mon, $year) = localtime;
+    $year += 1900;
     $mon++;
 
     foreach $e ('sec', 'min', 'hour', 'mday', 'mon', 'year') {