--- a/Image.st	Tue Jun 03 18:19:48 2014 +0200
+++ b/Image.st	Thu Jun 05 08:13:43 2014 +0200
@@ -5625,10 +5625,10 @@
     ((aDevice == device) and:[deviceForm notNil]) ifTrue:[^ self].
 
     (device notNil and:[aDevice ~~ device]) ifTrue:[
-	"oops, I am already accociated to another device
-	 - need a copy ...
-	"
-	^ self copy onDevice:aDevice
+        "oops, I am already associated to another device
+         - need a copy ...
+        "
+        ^ self copy onDevice:aDevice
     ].
     deviceForm := self asFormOn:aDevice.
     maskedPixelsAre0 := nil.
@@ -14425,11 +14425,11 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.454 2014-04-20 21:54:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.455 2014-06-05 06:13:43 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.454 2014-04-20 21:54:28 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.455 2014-06-05 06:13:43 stefan Exp $'
 ! !