--- a/SubCanvas.st	Fri Nov 22 13:16:18 2002 +0100
+++ b/SubCanvas.st	Tue Nov 26 18:21:53 2002 +0100
@@ -322,7 +322,9 @@
     spec notNil ifTrue:[
         (subSpec := spec) isSymbol ifTrue:[
             client isNil ifTrue:[
-                'SubCanvas [warning]: no client - cannot build spec' infoPrintCR.
+                clientHolder isNil ifTrue:[
+                    'SubCanvas [warning]: no client - cannot build spec' infoPrintCR.
+                ].
                 ^ self
             ].
             (subSpec := client class interfaceSpecFor:spec) isNil ifTrue:[
@@ -547,5 +549,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.45 2002-08-22 16:51:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.46 2002-11-26 17:21:53 cg Exp $'
 ! !