--- a/ClassBuilder.st	Fri Mar 01 14:41:48 2019 +0100
+++ b/ClassBuilder.st	Fri Mar 01 14:51:31 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2001 by eXept Software AG
               All Rights Reserved
@@ -534,8 +536,8 @@
         ]
     ].
 
-    (instanceVariableNames size > 0
-    or:[classVariableNames size > 0]) ifTrue:[
+    (instanceVariableNames size ~~ 0
+    or:[classVariableNames size ~~ 0]) ifTrue:[
         (self 
             checkValidVarNamesFor:className
             subClassOf:superClass
@@ -629,7 +631,7 @@
     "/ - or use upQueries in future versions.
 
     oldClass isNil ifTrue:[
-        (instanceVariableNames size > 0 or:[classVariableNames size > 0]) ifTrue:[
+        (instanceVariableNames size ~~ 0 or:[classVariableNames size ~~ 0]) ifTrue:[
             (self 
                 checkConventionsFor:className
                 subClassOf:superClass
@@ -743,6 +745,7 @@
     "Modified: / 18-03-1999 / 18:23:31 / stefan"
     "Modified: / 15-09-2011 / 13:47:56 / cg"
     "Modified (comment): / 21-11-2017 / 12:58:49 / cg"
+    "Modified: / 01-03-2019 / 14:51:08 / Claus Gittinger"
 !
 
 newSubclassOf:baseClass type:typeOfClass instanceVariables:instanceVariables from:oldClassArg
@@ -833,7 +836,7 @@
              newCIVNames remove:n ifAbsent:nil.
         ].
 
-        newCIVNames size > 0 ifTrue:[
+        newCIVNames size ~~ 0 ifTrue:[
             newCIVNames do:[:n |
                 (oldCIVNames includes:n) ifTrue:[
                     newClass instVarNamed:n put:(oldClass instVarNamed:n)
@@ -841,6 +844,8 @@
             ]
         ].
     ].
+
+    "Modified: / 01-03-2019 / 14:50:45 / Claus Gittinger"
 !
 
 determineNewName
@@ -1552,7 +1557,7 @@
 
     "let the new meta create the class"
 
-    instanceVariableNames size > 0 ifTrue:[
+    instanceVariableNames size ~~ 0 ifTrue:[
         nInstVars := instanceVariableNames countWords.
     ] ifFalse:[
         nInstVars := 0.
@@ -1574,6 +1579,7 @@
     ^ newClass
 
     "Modified: / 10-11-2006 / 14:36:28 / cg"
+    "Modified: / 01-03-2019 / 14:50:49 / Claus Gittinger"
 !
 
 namesInPoolNamed:poolName ofClass:aClass
@@ -2062,7 +2068,7 @@
 setupNewClass:newClass fromOld:oldClass
     |newFlags superFlags nInstVars|
 
-    (instanceVariableNames size > 0) ifTrue:[
+    (instanceVariableNames size ~~ 0) ifTrue:[
         nInstVars := instanceVariableNames countWords.
     ] ifFalse:[
         nInstVars := 0.
@@ -2101,6 +2107,7 @@
     newClass setClassVariableString:classVariableNames.
 
     "Modified: / 18-01-2011 / 20:44:04 / cg"
+    "Modified: / 01-03-2019 / 14:50:55 / Claus Gittinger"
 ! !
 
 !ClassBuilder methodsFor:'checks'!