--- a/Win32OperatingSystem.st	Tue Jan 29 17:27:28 2013 +0100
+++ b/Win32OperatingSystem.st	Tue Jan 29 17:32:07 2013 +0100
@@ -826,7 +826,6 @@
     "Modified: 7.1.1997 / 19:36:11 / stefan"
 ! !
 
-
 !Win32OperatingSystem class methodsFor:'OS signal constants'!
 
 sigABRT
@@ -4851,10 +4850,11 @@
 !
 
 getCurrentDirectory
-    |s size|
-
-    s := Unicode16String new:1024.
-    size := self primGetCurrentDirectoryW:1024 string: s.
+    |maxLength s size|
+
+    maxLength := 1024.
+    s := Unicode16String new:maxLength.
+    size := self primGetCurrentDirectoryW:maxLength string: s.
     (size isNil or:[size == 0]) ifTrue:[^ ''].
     ^ (s copyFrom:1 to: size) asSingleByteStringIfPossible
 
@@ -16474,11 +16474,11 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.445 2013-01-17 22:37:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.446 2013-01-29 16:32:07 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.445 2013-01-17 22:37:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.446 2013-01-29 16:32:07 cg Exp $'
 !
 
 version_SVN
@@ -16486,6 +16486,7 @@
 
 ! !
 
+
 Win32OperatingSystem initialize!
 Win32OperatingSystem::PerformanceData initialize!
 Win32OperatingSystem::RegistryEntry initialize!