MiniDebugger.st
changeset 15861 3728b99e2452
parent 15860 7952d944b767
child 15927 65b8082c8e68
child 18113 92b4242b2b0b
--- a/MiniDebugger.st	Fri Dec 06 16:49:22 2013 +0100
+++ b/MiniDebugger.st	Fri Dec 06 19:31:26 2013 +0100
@@ -624,7 +624,9 @@
         |changesFilename|
 
         changesFilename := Timestamp now
-             printStringFormat:'changes_%(year)-%(month)-%(day)__%h-%m-%s.chg'.      
+             printStringFormat:'changes_%(year)-%(month)-%(day)__%h:%m:%s.chg'.
+        OperatingSystem isMSWINDOWSlike ifTrue:[ changesFilename replaceAll:$: with:$_ ].
+
         ChangeSet current fileOutAs: changesFilename.
         ('saved session changes to "',changesFilename,'".') printCR.
         ^ false
@@ -1032,10 +1034,10 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.91 2013-12-06 15:49:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.92 2013-12-06 18:31:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.91 2013-12-06 15:49:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.92 2013-12-06 18:31:26 cg Exp $'
 ! !