Class.st
changeset 20618 bf447ad92afc
parent 20574 0826ff286ea3
child 20727 fb8c5591428b
child 20784 649cf068fc09
--- a/Class.st	Thu Oct 13 00:51:26 2016 +0200
+++ b/Class.st	Thu Oct 13 02:25:10 2016 +0200
@@ -2375,7 +2375,7 @@
 
     "add a snapshot-record to aStream"
 
-    self addInfoRecord:('snapshot ' , aFileName) to:aStream
+    self addInfoRecord:('snapshot ' , aFileName asString) to:aStream
 
     "Modified: / 24.1.1997 / 19:11:08 / cg"
     "Modified: / 18.3.1999 / 18:15:30 / stefan"