--- a/Win32OperatingSystem.st	Tue May 28 14:17:49 2013 +0200
+++ b/Win32OperatingSystem.st	Tue May 28 14:36:53 2013 +0200
@@ -7171,12 +7171,19 @@
     "
 !
 
-primSetLastError: int
-
-    <apicall: void "SetLastError" (dword) module: "kernel32.dll" >
-
-    "
-	self primSetLastError: 0
+primSetLastError: i
+%{
+    if (__isSmallInteger(i)) {
+        SetLastError(__intVal(i));
+        RETURN(self);
+    }
+%}.
+    self primitiveFailed.
+
+   "/ <apicall: void "SetLastError" (dword) module: "kernel32.dll" >
+
+    "
+        self primSetLastError: 0
     "
 !
 
@@ -17120,15 +17127,15 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.462 2013-05-15 17:06:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.463 2013-05-28 12:36:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.462 2013-05-15 17:06:14 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.463 2013-05-28 12:36:53 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Win32OperatingSystem.st,v 1.462 2013-05-15 17:06:14 stefan Exp $'
+    ^ '$Id: Win32OperatingSystem.st,v 1.463 2013-05-28 12:36:53 cg Exp $'
 
 ! !