# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1392337446 -3600
# Node ID 918f79c8b30de43f976e331c6a1d88db021d9fe3
# Parent  25a38a666be1dc0bf59a27f175985af575cae622
class: ImageEditor
changed: #imageHasImageSequence

diff -r 25a38a666be1 -r 918f79c8b30d ImageEditor.st
--- 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"
 !