--- a/SubCanvas.st	Wed Nov 04 10:56:52 2009 +0100
+++ b/SubCanvas.st	Thu Nov 05 11:10:00 2009 +0100
@@ -95,7 +95,10 @@
     ].
 
     (builder := aBuilder) isNil ifTrue:[
-        builder := anApplication perform:#builder ifNotUnderstood:[UIBuilder new]
+        anApplication notNil ifTrue:[
+            builder := anApplication perform:#builder ifNotUnderstood:[ nil ]
+        ].
+        builder isNil ifTrue:[ builder := UIBuilder new ].
     ].
 
     spec := aWindowSpecOrSpecSymbol.
@@ -541,5 +544,9 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.65 2008-10-20 14:47:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.66 2009-11-05 10:10:00 ca Exp $'
 ! !