diff --git a/etc/scripts/ttcn3_archive.pl b/etc/scripts/ttcn3_archive.pl
index bdf6e7b4a5a48dc7d8ca7f244b40e0160ffcfba6..aef646beef0216afbadf706ffa7c82e9be169064 100755
--- a/etc/scripts/ttcn3_archive.pl
+++ b/etc/scripts/ttcn3_archive.pl
@@ -34,7 +34,7 @@ if (-l $tpd)  #get the path if it is a symlink
 my $root = getPathToRootDir(\@list); # get the workspace directory of the OS
 chomp ($root);
 chdir ($root) or die "cannot change: $!\n";
-my $cutstring = cwd; # this is string generated from the the absolut path to the workspace
+my $cutstring = cwd; # this is string generated from the the absolute path to the workspace
 my $archiveDir = getArchiveDir(\@list); #directory to place the archive
 $archiveDir = $home . "/" .  $archiveDir;
 chomp ($archiveDir);