--- a/SubCanvas.st	Thu Nov 08 11:54:31 2007 +0100
+++ b/SubCanvas.st	Thu Nov 08 12:51:11 2007 +0100
@@ -9,8 +9,6 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
-
-
 "{ Package: 'stx:libwidg2' }"
 
 ScrollableView subclass:#SubCanvas
@@ -392,11 +390,13 @@
 
             useApplicationSubView ifTrue:[
                 clientView := ApplicationSubView new.
-                clientView application:client.
             ] ifFalse:[
                 clientView := View new.
             ]
         ].
+        useApplicationSubView ifTrue:[
+            clientView application:client.
+        ].
 
         savedView := builder window.
         builder window:clientView.
@@ -581,5 +581,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.55 2006-02-13 17:08:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.56 2007-11-08 11:51:11 ca Exp $'
 ! !