--- a/GIFReader.st	Wed May 06 03:58:37 2015 +0000
+++ b/GIFReader.st	Thu May 07 22:42:35 2015 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libview2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ImageReader subclass:#GIFReader
 	instanceVariableNames:'pass xpos ypos rowByteSize remainBitCount bufByte bufStream
 		prefixTable suffixTable clearCode eoiCode freeCode codeSize
@@ -152,12 +156,14 @@
 initialize
     "install myself in the Image classes fileFormat table
      for the `.gif' extensions."
+    
+    ImageSeparator isNil ifTrue:[
+        ImageSeparator := $, codePoint.
+        Extension := $!! codePoint.
+        Terminator := $; codePoint.
 
-    ImageSeparator := $, codePoint.
-    Extension := $!! codePoint.
-    Terminator := $; codePoint.
-
-    MIMETypes defineImageType:'image/gif' suffix:'gif' reader:self.
+        MIMETypes defineImageType:'image/gif' suffix:'gif' reader:self.
+    ].
 
     "Modified: 14.10.1997 / 18:47:27 / cg"
 ! !
@@ -1081,11 +1087,11 @@
 !GIFReader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.107 2014-11-18 17:39:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.108 2015-05-07 20:42:35 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.107 2014-11-18 17:39:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/GIFReader.st,v 1.108 2015-05-07 20:42:35 cg Exp $'
 ! !