--- a/Win32OperatingSystem.st	Fri May 28 13:50:48 1999 +0200
+++ b/Win32OperatingSystem.st	Fri May 28 14:01:13 1999 +0200
@@ -7070,7 +7070,20 @@
 
 !Win32OperatingSystem::RegistryEntry methodsFor:'accessing'!
 
+name
+    "return the keys name component (subKey name within my
+     parent key)"
+
+    |idx|
+
+    idx := path lastIndexOf:(self class separator).
+    idx == 0 ifTrue:[^ path].
+    ^ path copyFrom:idx+1
+!
+
 path
+    "return the keys full key path name"
+
     ^ path.
 ! !
 
@@ -7733,6 +7746,6 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.68 1999-05-28 11:50:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.69 1999-05-28 12:01:13 cg Exp $'
 ! !
 Win32OperatingSystem initialize!