--- a/MultiImage.st	Tue Oct 29 10:40:40 2002 +0100
+++ b/MultiImage.st	Tue Oct 29 10:45:14 2002 +0100
@@ -52,7 +52,7 @@
 !
 
 onDevice:device
-    images := images collect:[:eachImage | eachImage onDevice:device].
+    images := images collect:[:eachImage | (eachImage onDevice:device) ? eachImage].
     ^ self
 ! !
 
@@ -73,5 +73,5 @@
 !MultiImage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.4 2002-10-01 09:18:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.5 2002-10-29 09:45:14 cg Exp $'
 ! !