--- a/SourceCodeManagerUtilities.st	Thu Nov 16 12:11:16 2006 +0100
+++ b/SourceCodeManagerUtilities.st	Thu Nov 16 12:12:33 2006 +0100
@@ -1005,6 +1005,7 @@
             default := askForRevision 
                             ifTrue:[2. "i.e. load"]
                             ifFalse:[1. "i.e. cancel"].
+            default := 2. 
         ] ifFalse:[
             changed isEmpty ifTrue:[
                 msg := msg , '\Attention:\Load will load methods which are not present in ''%4''.'.
@@ -1013,6 +1014,7 @@
                 default := askForRevision 
                                 ifTrue:[2. "i.e. load"]
                                 ifFalse:[1. "i.e. cancel"].
+                default := 2. 
             ] ifFalse:[
                 inChangeSet ifTrue:[
                     msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.
@@ -1031,6 +1033,7 @@
             default := askForRevision 
                             ifTrue:[2. "i.e. load"]
                             ifFalse:[1. "i.e. cancel"].
+            default := 2. 
         ] ifFalse:[
             inChangeSet ifTrue:[
                 msg := msg , '\Attention:\Load will undo your changes made to ''%4'' (if any were made);'.
@@ -2852,5 +2855,5 @@
 !SourceCodeManagerUtilities class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.151 2006-10-25 16:09:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SourceCodeManagerUtilities.st,v 1.152 2006-11-16 11:12:33 fm Exp $'
 ! !