--- a/private.rc	Tue Mar 05 02:26:59 1996 +0100
+++ b/private.rc	Fri Mar 08 17:04:57 1996 +0100
@@ -50,6 +50,8 @@
 ].
 !
 
+|whoAmI|
+
 Transcript showCr:'reading keyboard.rc ...'.
 Smalltalk fileIn:'keyboard.rc'.
 
@@ -66,8 +68,9 @@
 "/
 Smalltalk systemPath addFirst:'../..'.
 
-(OperatingSystem getLoginName = 'claus' 
-or:[OperatingSystem getLoginName = 'cg']) ifTrue:[
+whoAmI := OperatingSystem getLoginName.
+
+(whoAmI = 'claus' or:[whoAmI = 'cg']) ifTrue:[
     Smalltalk systemPath addFirst:'../../not_delivered'.
     Smalltalk systemPath addFirst:'../../private_classes'.
     Smalltalk systemPath addFirst:'../../fileIn/not_delivered'.
@@ -111,8 +114,7 @@
 "/     The history manager automatically adds a history line to changed
 "/     methods and optionally to a classes history method.
 "/
-(OperatingSystem getLoginName = 'claus' 
-or:[OperatingSystem getLoginName = 'cg']) ifTrue:[
+(whoAmI = 'claus' or:[whoAmI = 'cg']) ifTrue:[
     Compiler warnSTXSpecials:false.
     HistoryManager notNil ifTrue:[
 	Transcript showCr:'activating HistoryManager ...'.