--- a/ChangeSet.st	Tue Jul 06 00:01:33 1999 +0200
+++ b/ChangeSet.st	Tue Jul 06 10:46:36 1999 +0200
@@ -255,7 +255,7 @@
     |sel className categoryName 
      methodSource methodSelector change parser
      oldName newName priv receiver receiverVarName
-     receiverSelector receiverReceiver|
+     receiverSelector receiverReceiver primSource|
 
     sel := aTree selector.
     receiver := aTree receiver.
@@ -450,6 +450,35 @@
         ].
     ].
 
+    (sel == #'primitiveDefinitions'
+    or:[sel == #'primitiveFunctions'
+    or:[sel == #'primitiveVariables']]) ifTrue:[
+        (receiver isUnaryMessage 
+        and:[receiverSelector == #class]) ifTrue:[
+            className := (receiverReceiver name) , ' class'.
+        ] ifFalse:[
+            className := (receiver name).
+        ].
+
+        aStream skipSeparators.
+        primSource := aStream nextChunk.
+
+        sel == #'primitiveDefinitions' ifTrue:[
+            change := ClassPrimitiveDefinitionsChange new
+        ] ifFalse:[
+            sel == #'primitiveFunctions' ifTrue:[
+                change := ClassPrimitiveFunctionsChange new
+            ] ifFalse:[
+                change := ClassPrimitiveVariablesChange new
+            ]
+        ].
+
+self halt.
+        self add: change.
+
+        ^ true
+    ].
+
     ^ false
 
     "Created: / 16.2.1998 / 13:42:40 / cg"
@@ -459,5 +488,5 @@
 !ChangeSet class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.22 1999-07-05 20:29:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ChangeSet.st,v 1.23 1999-07-06 08:46:36 cg Exp $'
 ! !