--- a/StandardSystemView.st	Fri Oct 03 15:03:02 2008 +0200
+++ b/StandardSystemView.st	Sat Oct 04 11:53:57 2008 +0200
@@ -1478,15 +1478,15 @@
         self setCursor
     ].
 
-    application isNil ifTrue:[
+    application notNil ifTrue:[
+        windowClassNameString := application className.
+    ] ifFalse:[
         (self class == StandardSystemView and:[subViews size == 1]) ifTrue:[
             "This is a subclass of SimpleView wrapped into a StandardSystemView"
             windowClassNameString := subViews first className.
         ] ifFalse:[
             windowClassNameString := self className.
         ]
-    ] ifFalse:[
-        windowClassNameString := application className.
     ].
     self setWindowClass:('Stx.', windowClassNameString) name:"name"'bla'.
 
@@ -1546,7 +1546,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.183 2008-07-22 20:50:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.184 2008-10-04 09:53:57 cg Exp $'
 ! !
 
 StandardSystemView initialize!