1 files changed, 2 insertions, 1 deletions
diff --git a/mdkonline b/mdkonline
index 7cf99067..f0f941b2 100755
--- a/mdkonline
+++ b/mdkonline
@@ -199,7 +199,8 @@ sub checkErrors {
 }
 sub setEntryWithConf {
     my %t = getVarsFromSh($wideconf);
-    $t{MACHINE} ||= chomp_(`hostname`);
+    my $host = chomp_(`hostname`) ; $host =~ /(\w+)(.*)/;
+    $t{MACHINE} ||= $1;
     foreach (qw(login machine)) { $o->{$_}->get_text or $o->{$_}->set_text($t{uc($_)}) }
 }
 sub sendConfig {