--- a/ObjMem.st	Fri Nov 10 22:49:52 1995 +0100
+++ b/ObjMem.st	Sat Nov 11 15:11:22 1995 +0100
@@ -26,7 +26,7 @@
 			   BackgroundCollectProcess BackgroundFinalizationProcess
 			   FinalizationSemaphore
 			   Dependents
-			   ImageName
+			   ImageName ChangeFileName
 
 			   MaxInterruptLatency InterruptLatencyGoal'
        poolDictionaries:''
@@ -37,7 +37,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.74 1995-11-08 17:03:53 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.75 1995-11-11 14:11:22 cg Exp $
 '!
 
 !ObjectMemory class methodsFor:'documentation'!
@@ -58,7 +58,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.74 1995-11-08 17:03:53 cg Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.75 1995-11-11 14:11:22 cg Exp $
 "
 !
 
@@ -2861,9 +2861,11 @@
 
 nameForChanges
     "return a reasonable filename to store the changes into.
-     This is the basename of the current image with '.img' replaced
-     by '.chg', or, if not running from an image, the default name 'st.chg'"
-
+     Currently, this is defined in a classVariable and defaults to 'changes'.
+     In future versions, this will be the basename of the current image with '.img' replaced
+     by '.chg', or, if not running from an image, the default name 'st.chg'."
+
+    ChangeFileName notNil ifTrue:[^ ChangeFileName].
     ^ 'changes'.
 
 "/ future versions will have:
@@ -2876,6 +2878,16 @@
     "
 !
 
+nameForChanges:aFilename
+    "set the name of the file where changes are stored into."
+
+    ChangeFileName := aFilename
+
+    "
+     ObjectMemory nameForChanges:'myChanges'    
+    "
+!
+
 snapShot
     "create a snapshot file containing all of the current state."
 

--- a/ObjectMemory.st	Fri Nov 10 22:49:52 1995 +0100
+++ b/ObjectMemory.st	Sat Nov 11 15:11:22 1995 +0100
@@ -26,7 +26,7 @@
 			   BackgroundCollectProcess BackgroundFinalizationProcess
 			   FinalizationSemaphore
 			   Dependents
-			   ImageName
+			   ImageName ChangeFileName
 
 			   MaxInterruptLatency InterruptLatencyGoal'
        poolDictionaries:''
@@ -37,7 +37,7 @@
 COPYRIGHT (c) 1992 by Claus Gittinger
 	     All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.74 1995-11-08 17:03:53 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.75 1995-11-11 14:11:22 cg Exp $
 '!
 
 !ObjectMemory class methodsFor:'documentation'!
@@ -58,7 +58,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.74 1995-11-08 17:03:53 cg Exp $
+$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.75 1995-11-11 14:11:22 cg Exp $
 "
 !
 
@@ -2861,9 +2861,11 @@
 
 nameForChanges
     "return a reasonable filename to store the changes into.
-     This is the basename of the current image with '.img' replaced
-     by '.chg', or, if not running from an image, the default name 'st.chg'"
-
+     Currently, this is defined in a classVariable and defaults to 'changes'.
+     In future versions, this will be the basename of the current image with '.img' replaced
+     by '.chg', or, if not running from an image, the default name 'st.chg'."
+
+    ChangeFileName notNil ifTrue:[^ ChangeFileName].
     ^ 'changes'.
 
 "/ future versions will have:
@@ -2876,6 +2878,16 @@
     "
 !
 
+nameForChanges:aFilename
+    "set the name of the file where changes are stored into."
+
+    ChangeFileName := aFilename
+
+    "
+     ObjectMemory nameForChanges:'myChanges'    
+    "
+!
+
 snapShot
     "create a snapshot file containing all of the current state."