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 18:31:12 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: [ '' ]! !