--- a/Explainer.st	Wed Jan 13 16:41:01 2016 +0100
+++ b/Explainer.st	Fri Jan 22 20:38:17 2016 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
@@ -64,7 +62,7 @@
     expl := literalValue class name "allBold" , '-constant'.
 
     (literalValue isInteger) ifTrue:[
-        (literalValue ~= 0 and:[literalValue ~= 1]) ifTrue:[
+        (literalValue ~~ 0 and:[literalValue ~~ 1]) ifTrue:[
             expl := expl , ' ('.
             #(2 10 16) with:#('binary: ' 'decimal: ' 'hex: ')do:[:base :baseExpl |
                 |bStr|
@@ -1615,10 +1613,10 @@
 !Explainer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.141 2015-03-03 10:44:58 cg Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Explainer.st,v 1.141 2015-03-03 10:44:58 cg Exp $'
+    ^ '$Header$'
 ! !