--- a/SubCanvas.st	Fri Dec 15 16:47:16 2000 +0100
+++ b/SubCanvas.st	Fri Dec 15 17:41:36 2000 +0100
@@ -381,6 +381,10 @@
                 ] ifFalse:[
                     self scrolledView:clientView.
                 ]
+            ] ifTrue:[
+                (clientView isSubViewOf:self) ifFalse:[
+                    self scrolledView:clientView.
+                ]
             ]
         ] valueNowOrOnUnwindDo:[
             savedView notNil ifTrue:[
@@ -534,5 +538,5 @@
 !SubCanvas class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.33 2000-12-15 15:47:16 tm Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SubCanvas.st,v 1.34 2000-12-15 16:41:36 cg Exp $'
 ! !