--- a/Class.st	Tue Mar 30 20:46:42 2004 +0200
+++ b/Class.st	Tue Mar 30 20:53:26 2004 +0200
@@ -2323,9 +2323,9 @@
 fileOutClassInstVarDefinitionOn:aStream
     "append an expression to define my classInstanceVariables on aStream"
 
-    self
-	fileOutClassInstVarDefinitionOn:aStream 
-	withNameSpace:false
+    self class
+        fileOutClassInstVarDefinitionOn:aStream 
+        withNameSpace:false
 !
 
 fileOutClassInstVarDefinitionOn:aStream withNameSpace:withNameSpace
@@ -3287,7 +3287,7 @@
 
     "append an instvars-record to aStream"
 
-    aClass fileOutClassInstVarDefinitionOn:aStream withNameSpace:true.
+    aClass class fileOutClassInstVarDefinitionOn:aStream withNameSpace:true.
     aStream nextPutChunkSeparator.
 !
 
@@ -4698,5 +4698,5 @@
 !Class class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.468 2004-03-22 12:03:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.469 2004-03-30 18:53:08 cg Exp $'
 ! !