--- a/Class.st	Fri Aug 23 23:25:49 2019 +0200
+++ b/Class.st	Sat Aug 24 03:22:49 2019 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1989 by Claus Gittinger
 	       All Rights Reserved
@@ -600,18 +598,18 @@
 	   classInstanceVariableNames:cIV
 !
 
-subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s
+subclass:nm instanceVariableNames:iV classVariableNames:cV poolDictionaries:pD
     "{ Pragma: +optSpace }"
 
     "this method allows fileIn of ST/V and V'Age classes
      (which seem to have no category)"
 
     ^ self
-	   subclass:t
-	   instanceVariableNames:f
-	   classVariableNames:d
-	   poolDictionaries:s
-	   category:(self defaultCategoryForSTVorVAGEClasses)
+           subclass:nm
+           instanceVariableNames:iV
+           classVariableNames:cV
+           poolDictionaries:pD
+           category:(self defaultCategoryForSTVorVAGEClasses)
 
     "Modified: / 15.6.1998 / 21:31:34 / cg"
     "Modified: / 18.3.1999 / 18:16:11 / stefan"