--- a/ObjectMemory.st	Thu Nov 25 21:39:25 2021 +0000
+++ b/ObjectMemory.st	Mon Nov 29 23:00:04 2021 +0000
@@ -2,6 +2,7 @@
  COPYRIGHT (c) 1992 by Claus Gittinger
  COPYRIGHT (c) 2010-2011 Jan Vrany
  COPYRIGHT (c) 2017 Jan Vrany
+ COPYRIGHT (c) 2021 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -104,6 +105,7 @@
  COPYRIGHT (c) 1992 by Claus Gittinger
  COPYRIGHT (c) 2010-2011 Jan Vrany
  COPYRIGHT (c) 2017 Jan Vrany
+ COPYRIGHT (c) 2021 LabWare
 	      All Rights Reserved
 
  This software is furnished under a license and may be used
@@ -5688,17 +5690,23 @@
 
     |localName wd|
 
+    self imageName notNil ifTrue: [ 
+        ^ self imageName
+    ].
+
     localName := self nameForSnapshotLocal.
 
     "/ if there is a workspace, create it there
     ((wd := UserPreferences current workspaceDirectory) notNil and:[wd exists]) ifTrue:[
-	^ wd / (localName asFilename baseName)
+        ^ wd / (localName asFilename baseName)
     ].
     ^ localName
 
     "
      ObjectMemory nameForSnapshot
     "
+
+    "Modified: / 29-11-2021 / 15:11:27 / Jan Vrany <jan.vrany@labware.com>"
 !
 
 nameForSnapshotLocal
@@ -6048,6 +6056,11 @@
     ^ '$Header$'
 !
 
+version_HG
+
+    ^ '$Changeset: <not expanded> $'
+!
+
 version_SVN
     ^ '$ Id: ObjectMemory.st 10643 2011-06-08 21:53:07Z vranyj1  $'
 ! !