--- a/SubCanvas.st	Wed Jun 11 12:22:31 1997 +0200
+++ b/SubCanvas.st	Sun Jun 15 12:02:54 1997 +0200
@@ -56,13 +56,15 @@
     |spec |
 
     self releaseAllComponents.
-    anApplicationModel isNil ifTrue:[
-        ^ self 
-    ].
 
     spec := aWindowSpecOrSpecSymbol.
+
     spec isSymbol ifTrue:[
-        spec := anApplicationModel class interfaceSpecFor:spec
+        anApplicationModel isNil ifTrue:[
+            spec := nil
+        ] ifFalse:[
+            spec := anApplicationModel class interfaceSpecFor:spec
+        ]
     ].
 
     spec notNil ifTrue:[
@@ -77,5 +79,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/SubCanvas.st,v 1.3 1997-06-10 10:52:45 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/SubCanvas.st,v 1.4 1997-06-15 10:02:54 ca Exp $'
 ! !