--- a/StandardSystemView.st	Thu Aug 07 21:34:55 2003 +0200
+++ b/StandardSystemView.st	Mon Aug 11 22:04:43 2003 +0200
@@ -1479,7 +1479,12 @@
     ].
 
     application isNil ifTrue:[
-        windowClassNameString := self className.
+        (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.
     ].
@@ -1530,7 +1535,7 @@
 !StandardSystemView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.150 2003-08-07 19:25:54 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.151 2003-08-11 20:04:43 stefan Exp $'
 ! !
 
 StandardSystemView initialize!