--- a/SubCanvas.st	Fri Jun 06 16:16:13 2014 +0200
+++ b/SubCanvas.st	Sat Jun 07 17:13:04 2014 +0200
@@ -484,8 +484,13 @@
 
     clientHolder isNil ifTrue:[
         newClient := self application.
+        "/ new code added Jun,7 2014 (used to always create new builder)
+useOwnBuilder ifFalse:[
+    uiBuilder := newClient builder.
+] ifTrue:[
         uiBuilder := UIBuilder new.
         uiBuilder isSubBuilder:true.
+].
     ] ifFalse:[
         newClient := clientHolder value
     ].
@@ -593,10 +598,10 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.68 2014-05-07 15:54:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.69 2014-06-07 15:13:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.68 2014-05-07 15:54:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.69 2014-06-07 15:13:04 cg Exp $'
 ! !