--- a/OSHandle.st	Tue Oct 30 14:01:30 2001 +0100
+++ b/OSHandle.st	Tue Oct 30 19:14:46 2001 +0100
@@ -19,6 +19,14 @@
     OperatingSystem isOS2like  ifTrue:[^ #os2].
     OperatingSystem isMSWINDOWSlike  ifTrue:[^ #windows].
     ^ #unknown
+!
+
+currentProcessID
+    "ST-80 compatibility."
+
+    ^ OperatingSystem getProcessId
+
+    "Created: / 30.10.2001 / 17:31:55 / cg"
 ! !
 
 !OSHandle methodsFor:'finalization'!
@@ -30,5 +38,5 @@
 !OSHandle class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.4 2001-09-04 19:00:43 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/OSHandle.st,v 1.5 2001-10-30 18:14:46 cg Exp $'
 ! !