--- a/StandaloneStartup.st	Thu Jul 31 15:47:03 2008 +0200
+++ b/StandaloneStartup.st	Thu Jul 31 16:12:22 2008 +0200
@@ -288,18 +288,18 @@
 
 writeCurrentIDIntoRegistry: currentID
 
-    |dapasXEntry currentIDEntry|
+    |applicationEntry currentIDEntry|
 
-    dapasXEntry := self applicationRegistryEntry.
-    dapasXEntry isNil ifTrue:[^ false.].
+    applicationEntry := self applicationRegistryEntry.
+    applicationEntry isNil ifTrue:[^ false.].
 
-    currentIDEntry := dapasXEntry createSubKeyNamed:(self currentIDKeyInRegistry).
+    currentIDEntry := applicationEntry createSubKeyNamed:(self currentIDKeyInRegistry).
     currentIDEntry isNil ifTrue:[
         Transcript showCR: 'Failed to create CurrentID entry in registry'.
         ^ false.
     ].
 
-    ^ dapasXEntry valueNamed:(self currentIDKeyInRegistry) put:(currentID printString).
+    ^ applicationEntry valueNamed:(self currentIDKeyInRegistry) put:(currentID printString).
 
     "
      | currentID returnedCurrentID |
@@ -519,7 +519,7 @@
 !StandaloneStartup class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.12 2008-07-31 13:47:03 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/StandaloneStartup.st,v 1.13 2008-07-31 14:12:22 fm Exp $'
 ! !
 
 StandaloneStartup initialize!