--- a/OSHandle.st	Tue Dec 11 18:45:19 2001 +0100
+++ b/OSHandle.st	Tue Dec 11 18:47:47 2001 +0100
@@ -34,6 +34,10 @@
     OperatingSystem isOS2like  ifTrue:[^ #os2].
     OperatingSystem isMSWINDOWSlike  ifTrue:[^ #windows].
     ^ #unknown
+
+    "
+     OSHandle currentOS
+    "
 !
 
 currentProcessID
@@ -41,6 +45,10 @@
 
     ^ OperatingSystem getProcessId
 
+    "
+     OSHandle currentProcessID
+    "
+
     "Created: / 30.10.2001 / 17:31:55 / cg"
 ! !
 
@@ -53,5 +61,5 @@
 !OSHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.6 2001-11-20 18:37:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.7 2001-12-11 17:47:47 cg Exp $'
 ! !