--- a/ImageEditor.st	Thu Feb 06 12:40:37 2014 +0100
+++ b/ImageEditor.st	Fri Feb 14 01:24:06 2014 +0100
@@ -3503,7 +3503,9 @@
 !
 
 imageHasImageSequence
-    ^ self image notNil and:[self image imageSequence notNil]
+    |img|
+
+    ^ (img := self image) notNil and:[img imageSequence notNil]
 
     "Created: / 21-10-2010 / 14:35:45 / cg"
 !