--- a/Win32OperatingSystem.st	Sat Apr 03 12:47:04 2010 +0200
+++ b/Win32OperatingSystem.st	Mon Apr 05 10:41:42 2010 +0200
@@ -8021,6 +8021,21 @@
     "
 !
 
+getThreadId
+    "return the (windows-) threadId"
+
+%{  /* NOCONTEXT */
+
+    int pid = 0;
+
+    pid = GetCurrentThreadId() & 0x3FFFFFFF;
+    RETURN ( __mkSmallInteger(pid) );
+%}
+    "
+     OperatingSystem getThreadId
+    "
+!
+
 getWindowsDirectory
     "internal interface - only for Windows based systems.
      Return the windows directory
@@ -16237,11 +16252,11 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.399 2010-03-31 09:22:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.400 2010-04-05 08:41:42 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.399 2010-03-31 09:22:22 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.400 2010-04-05 08:41:42 cg Exp $'
 ! !
 
 Win32OperatingSystem initialize!