--- a/Class.st	Tue Feb 06 12:11:02 2001 +0100
+++ b/Class.st	Tue Feb 06 15:54:13 2001 +0100
@@ -260,6 +260,7 @@
     "Modified: 23.4.1996 / 15:56:58 / cg"
 ! !
 
+
 !Class methodsFor:'Compatibility - ST80'!
 
 fileOutSourceOn:aStream
@@ -734,7 +735,7 @@
 
     "set the primitiveDefinition string"
 
-    self setPrimitiveSpecsAt:1 to:aString.
+    self setPrimitiveDefinitions:aString.
     self addChangeRecordForPrimitiveDefinitions:self.
 
     "Created: 29.10.1995 / 19:41:39 / cg"
@@ -758,7 +759,7 @@
 
     "set the primitiveFunction string"
 
-    self setPrimitiveSpecsAt:3 to:aString.
+    self setPrimitiveFunctions:aString.
     self addChangeRecordForPrimitiveFunctions:self.
 
     "Created: 29.10.1995 / 19:41:48 / cg"
@@ -793,7 +794,7 @@
 
     "set the primitiveVariable string"
 
-    self setPrimitiveSpecsAt:2 to:aString.
+    self setPrimitiveVariables:aString.
     self addChangeRecordForPrimitiveVariables:self.
 
     "Created: 29.10.1995 / 19:41:58 / cg"
@@ -1022,6 +1023,30 @@
     package := aStringOrSymbol
 !
 
+setPrimitiveDefinitions:aString
+    "{ Pragma: +optSpace }"
+
+    "set the primitiveDefinition string (no change notifications)"
+
+    self setPrimitiveSpecsAt:1 to:aString.
+!
+
+setPrimitiveFunctions:aString
+    "{ Pragma: +optSpace }"
+
+    "set the primitiveFunction string (no change notifications)"
+
+    self setPrimitiveSpecsAt:3 to:aString.
+!
+
+setPrimitiveVariables:aString
+    "{ Pragma: +optSpace }"
+
+    "set the primitiveVariable string (no change notifications)"
+
+    self setPrimitiveSpecsAt:2 to:aString.
+!
+
 source
     "return the classes full source code"
 
@@ -4560,5 +4585,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.392 2000-12-20 18:47:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.393 2001-02-06 14:54:13 cg Exp $'
 ! !