--- a/SubCanvas.st	Wed Feb 24 14:33:31 1999 +0100
+++ b/SubCanvas.st	Wed Feb 24 17:01:04 1999 +0100
@@ -165,9 +165,11 @@
     spec notNil ifTrue:[
         (subSpec := spec) isSymbol ifTrue:[
             client isNil ifTrue:[
+                'SubCanvas [warning]: no client - cannot build spec' infoPrintCR.
                 ^ self
             ].
             (subSpec := client class interfaceSpecFor:spec) isNil ifTrue:[
+                "/ Transcript showCR:'SubCanvas: nil spec'.
                 ^ self
             ]
         ].
@@ -187,7 +189,6 @@
         client buildSubCanvas:subSpec withBuilder:builder.
         builder window:savedView.
 
-
         self realized ifTrue:[
             scrolledView realizeAllSubViews
         ]
@@ -277,5 +278,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.9 1998-06-20 12:29:05 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.10 1999-02-24 16:01:04 cg Exp $'
 ! !