--- a/StandardSystemView.st	Mon Sep 21 10:00:06 2009 +0200
+++ b/StandardSystemView.st	Tue Sep 22 12:21:49 2009 +0200
@@ -1481,13 +1481,13 @@
     ].
 
     application notNil ifTrue:[
-        windowClassNameString := application className.
+        windowClassNameString := application class name.
     ] ifFalse:[
         (self class == StandardSystemView and:[subViews size == 1]) ifTrue:[
             "This is a subclass of SimpleView wrapped into a StandardSystemView"
-            windowClassNameString := subViews first className.
+            windowClassNameString := subViews first class name.
         ] ifFalse:[
-            windowClassNameString := self className.
+            windowClassNameString := self class name.
         ]
     ].
     self setWindowClass:('Stx.', windowClassNameString) name:"name"'bla'.
@@ -1548,7 +1548,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.187 2009-04-02 21:51:51 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.188 2009-09-22 10:21:49 cg Exp $'
 ! !
 
 StandardSystemView initialize!