diff --git a/sys/kern/kern_prot.pas b/sys/kern/kern_prot.pas
index 0822bc49..bfaae1af 100644
--- a/sys/kern/kern_prot.pas
+++ b/sys/kern/kern_prot.pas
@@ -427,7 +427,7 @@ begin
  if (namelen > MAXLOGNAME) then
   namelen:=MAXLOGNAME;
 
- login:='user';
+ login:='root';
  len:=strlen(@login);
 
  if (len > namelen) then