--- a/ViewStyle.st	Fri Nov 18 12:20:19 2016 +0100
+++ b/ViewStyle.st	Sat Nov 19 21:04:32 2016 +0100
@@ -278,14 +278,9 @@
 !
 
 isWindowsVistaStyle
-    "answer true if this is a MS-Windows-Vista (or later) style.
-     XXX Currently we simply check the name"
+    ^ (name ? self name) == #winVista
 
-    |nm|
-
-    nm := name ? self name.
-
-    ^ nm == #winVista
+    "Modified (format): / 19-11-2016 / 15:49:48 / cg"
 !
 
 isWindowsXPStyle