--- a/ClassPrimitiveDefinitionsChange.st	Tue Jul 06 11:54:19 1999 +0200
+++ b/ClassPrimitiveDefinitionsChange.st	Tue Jul 06 11:54:56 1999 +0200
@@ -10,7 +10,7 @@
  hereby transferred.
 "
 
-ClassChange subclass:#ClassPrimitiveDefinitionsChange
+ClassPrimitiveChange subclass:#ClassPrimitiveDefinitionsChange
 	instanceVariableNames:''
 	classVariableNames:''
 	poolDictionaries:''
@@ -43,24 +43,22 @@
 "
 ! !
 
-!ClassPrimitiveDefinitionsChange methodsFor:'accessing'!
-
-class:aClass 
-    className := aClass name.
-    source := aClass primitiveDefinitionsString
-
-    "Created: 3.12.1995 / 14:02:40 / cg"
-    "Modified: 3.12.1995 / 14:06:33 / cg"
-! !
-
 !ClassPrimitiveDefinitionsChange methodsFor:'printing'!
 
 printOn:aStream
     aStream nextPutAll:className; nextPutAll:' primitiveDefinitions:'
 ! !
 
+!ClassPrimitiveDefinitionsChange methodsFor:'queries'!
+
+isPrimitiveDefinitionsChange
+    ^ true
+
+
+! !
+
 !ClassPrimitiveDefinitionsChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveDefinitionsChange.st,v 1.3 1996-04-25 17:04:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassPrimitiveDefinitionsChange.st,v 1.4 1999-07-06 09:54:56 cg Exp $'
 ! !