Index: /trunk/ab5.0/ablib/src/Classes/System/Environment.ab
===================================================================
--- /trunk/ab5.0/ablib/src/Classes/System/Environment.ab	(revision 585)
+++ /trunk/ab5.0/ablib/src/Classes/System/Environment.ab	(revision 586)
@@ -88,5 +88,5 @@
 			Dim len = GetSystemDirectory(StrPtr(buf), len)
 			.Length = len
-			MachineName = .ToString
+			SystemDirectory = .ToString
 		End With
 	End Function