Index: Include/Classes/System/Environment.ab
===================================================================
--- Include/Classes/System/Environment.ab	(revision 169)
+++ Include/Classes/System/Environment.ab	(revision 173)
@@ -38,7 +38,7 @@
 	End Sub
 
-	Static Sub HasShutdownStarted() As Boolean
+	Static Function HasShutdownStarted() As Boolean
 		Return False
-	End Sub
+	End Function
 
 	' MachineName
Index: Include/Classes/System/OperatingSystem.ab
===================================================================
--- Include/Classes/System/OperatingSystem.ab	(revision 169)
+++ Include/Classes/System/OperatingSystem.ab	(revision 173)
@@ -13,5 +13,5 @@
 	End Sub
 
-	Sub OperatingSystem(vi As OSVERSIONINFOA) As OperatingSystem
+	Sub OperatingSystem(vi As OSVERSIONINFOA)
 		pf = vi.dwPlatformId As PlatformID,
 		ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber)
@@ -19,5 +19,5 @@
 	End Sub
 
-	Sub OperatingSystem(vi As OSVERSIONINFOW) As OperatingSystem
+	Sub OperatingSystem(vi As OSVERSIONINFOW)
 		pf = vi.dwPlatformId As PlatformID,
 		ver = New Version(vi.dwMajorVersion, vi.MinorVersion, vi.BuildNumber)