--- a/VisualComponent.st	Fri May 08 13:55:06 2009 +0200
+++ b/VisualComponent.st	Fri May 08 14:46:18 2009 +0200
@@ -245,6 +245,7 @@
 bounds:aRectangle
     "set my bounds"
 
+    self assert:aRectangle notNil.
     frame := aRectangle
 !
 
@@ -269,7 +270,7 @@
     frame isNil ifTrue:[
         self containerChangedSize
     ].
-    frame := newOrigin extent:(frame extent).
+    frame := newOrigin copy extent:(frame extent).
 
     "Created: 8.5.1996 / 23:36:07 / cg"
     "Modified: 9.5.1996 / 00:13:12 / cg"
@@ -559,5 +560,5 @@
 !VisualComponent class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.23 2009-05-08 11:47:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/VisualComponent.st,v 1.24 2009-05-08 12:46:18 cg Exp $'
 ! !