--- a/Win32OperatingSystem.st	Thu Dec 23 22:42:58 1999 +0100
+++ b/Win32OperatingSystem.st	Thu Dec 23 22:50:12 1999 +0100
@@ -7622,6 +7622,26 @@
     "
 !
 
+subKeys
+    "return a collection of subKeys below the receiver"
+
+    |idx subEntry subKeys|
+
+    subKeys := OrderedCollection new.
+    self subKeysDo:[:k | subKeys add:k].
+    ^ subKeys
+
+    "
+     |top sub|
+
+     top := self key:'HKEY_LOCAL_MACHINE'.
+     top subKeys
+    "
+
+    "Created: / 23.12.1999 / 22:15:22 / cg"
+    "Modified: / 23.12.1999 / 22:15:44 / cg"
+!
+
 subKeysDo:aBlock
     "evaluate aBlock for all subKeys below the receiver"
 
@@ -8037,7 +8057,6 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.84 1999-12-23 21:35:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.85 1999-12-23 21:50:12 cg Exp $'
 ! !
-
-
+Win32OperatingSystem initialize!