Index: trunk/Include/Classes/System/Environment.ab
===================================================================
--- trunk/Include/Classes/System/Environment.ab	(revision 426)
+++ trunk/Include/Classes/System/Environment.ab	(revision 427)
@@ -34,5 +34,5 @@
 		Dim len = GetCurrentDirectory(size, p)
 		If len < size Then
-			CurrentDirectory = New String(p, size As Long)
+			CurrentDirectory = New String(p, len As Long)
 		End If
 	End Function