diff -p smalltalk-2.0k.ori/browser/BrowserMain.st smalltalk-2.0k/browser/BrowserMain.st
*** smalltalk-2.0k.ori/browser/BrowserMain.st	Tue Feb 25 18:56:54 2003
--- smalltalk-2.0k/browser/BrowserMain.st	Fri Feb 28 18:24:38 2003
*************** quit
*** 155,164 ****
  
  saveImageAs
      "Save a snapshot on a file the user chooses."
      fileName := Prompter
!                 saveFileName: 'File out category'
                  default: ImageFileName
!                 in: listView.
      fileName isNil
          ifFalse:
              [ObjectMemory snapshot: fileName.
--- 155,165 ----
  
  saveImageAs
      "Save a snapshot on a file the user chooses."
+     | fileName |
      fileName := Prompter
!                 saveFileName: 'Save image as:'
                  default: ImageFileName
!                 in: Shell.
      fileName isNil
          ifFalse:
              [ObjectMemory snapshot: fileName.
diff -p smalltalk-2.0k.ori/browser/ClassHierBrow.st smalltalk-2.0k/browser/ClassHierBrow.st
*** smalltalk-2.0k.ori/browser/ClassHierBrow.st	Tue Feb 25 18:53:57 2003
--- smalltalk-2.0k/browser/ClassHierBrow.st	Fri Feb 28 18:20:45 2003
*************** compileMethod: aString for: aView 
*** 928,934 ****
      curCategory isNil ifTrue: [
  	curCategory := (Prompter message: 'Enter method category' 
  		default: 'As yet unclassified'
!                 in: listView) response.
  
  	curCategory isEmpty ifTrue: [ curCategory := 'As yet unclassified' ]
      ].
--- 928,934 ----
      curCategory isNil ifTrue: [
  	curCategory := (Prompter message: 'Enter method category' 
  		default: 'As yet unclassified'
!                 in: Shell) response.
  
  	curCategory isEmpty ifTrue: [ curCategory := 'As yet unclassified' ]
      ].
diff -p smalltalk-2.0k.ori/browser/Debugger.st smalltalk-2.0k/browser/Debugger.st
*** smalltalk-2.0k.ori/browser/Debugger.st	Sun Feb  9 19:38:32 2003
--- smalltalk-2.0k/browser/Debugger.st	Fri Feb 28 19:22:48 2003
*************** text
*** 205,211 ****
      "Return source code for the selected method"
  
      | source |
!     ^theMethod notNil and: [ (source := theMethod methodSourceString) notNil ]
  	ifTrue: [ theClass -> source ]
          ifFalse: [ '' ]! !
  
--- 205,211 ----
      "Return source code for the selected method"
  
      | source |
!     ^(theMethod notNil and: [ (source := theMethod methodSourceString) notNil ])
  	ifTrue: [ theClass -> source ]
          ifFalse: [ '' ]! !
  
diff -p smalltalk-2.0k.ori/browser/Menu.st smalltalk-2.0k/browser/Menu.st
*** smalltalk-2.0k.ori/browser/Menu.st	Sun Feb  9 11:21:18 2003
--- smalltalk-2.0k/browser/Menu.st	Fri Feb 28 19:20:04 2003
*************** replaceArgWith: arg in: selectorsArray
*** 59,65 ****
      selectorsArray with: selectors
  	do: 
  	    [:item :changed | 
! 	    (item size > 2 and: [(item at: 2) numArgs > 1]) 
  		ifTrue: [changed at: 3 put: arg].
  
  	    (item size > 1 and: [item last isArray]) ifTrue: [
--- 59,65 ----
      selectorsArray with: selectors
  	do: 
  	    [:item :changed | 
! 	    (item size > 2 and: [(item at: 2) numArgs = 1]) 
  		ifTrue: [changed at: 3 put: arg].
  
  	    (item size > 1 and: [item last isArray]) ifTrue: [