# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1312038095 -7200
# Node ID 82dc48a9a6ae71f90cebaf7522b88c97c4c8612c
# Parent  638f9bfab880b165d92058c8d4182e3f4870c740
changed: #osName

diff -r 638f9bfab880 -r 82dc48a9a6ae Win32OperatingSystem.st
--- a/Win32OperatingSystem.st	Fri Jul 29 20:41:07 2011 +0200
+++ b/Win32OperatingSystem.st	Sat Jul 30 17:01:35 2011 +0200
@@ -8412,15 +8412,19 @@
 !
 
 osName
-
+    |osVersion|
+
+    osVersion := OperatingSystem osVersion.
     ^ 'Windows ',
-	(#('NT' '2000' 'XP' 'VISTA' '7')
-	    at: (#('4.1' '5.0' '5.1' '6.0' '6.1') indexOf:OperatingSystem osVersion)
-	    ifAbsent:OperatingSystem osVersion).
-
-    "
-      self osName
-    "
+        (#('NT' '2000' 'XP' 'VISTA' '7')
+            at: (#('4.1' '5.0' '5.1' '6.0' '6.1') indexOf:osVersion)
+            ifAbsent:osVersion).
+
+    "
+     self osName  
+    "
+
+    "Modified (comment): / 30-07-2011 / 17:00:50 / cg"
 !
 
 osVersion
@@ -16336,11 +16340,11 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.421 2011-04-19 09:04:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.422 2011-07-30 15:01:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.421 2011-04-19 09:04:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.422 2011-07-30 15:01:35 cg Exp $'
 ! !
 
 Win32OperatingSystem initialize!