--- a/SubCanvas.st	Wed Apr 23 15:22:12 2008 +0200
+++ b/SubCanvas.st	Wed Apr 23 22:59:27 2008 +0200
@@ -287,7 +287,7 @@
                 ].
                 ^ self
             ].
-            (subSpec := client class interfaceSpecFor:spec) isNil ifTrue:[
+            (subSpec := client interfaceSpecFor:spec) isNil ifTrue:[
                 "/ Transcript showCR:'SubCanvas: nil spec'.
                 ^ self
             ]
@@ -518,5 +518,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.60 2008-02-29 13:19:07 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.61 2008-04-23 20:59:27 cg Exp $'
 ! !