--- a/AbstractSettingsApplication.st	Mon Mar 02 11:20:20 2015 +0100
+++ b/AbstractSettingsApplication.st	Mon Mar 02 13:13:45 2015 +0100
@@ -18761,14 +18761,17 @@
 !
 
 basicReadSettings
+    |transcript|
+
     self
-	readAspects: (self aspects)
-	from:currentUserPrefs.
-
-    Transcript current isTextCollector ifTrue:[
-	self transcriptBufferSize value:Transcript current lineLimit.
-	"/ now already in userprefs
-	"/ self autoRaiseTranscript value:Transcript current autoRaise.
+        readAspects: (self aspects)
+        from:currentUserPrefs.
+
+    transcript := Transcript current.
+    transcript isTextCollector ifTrue:[
+        self transcriptBufferSize value:transcript lineLimit.
+        "/ now already in userprefs
+        "/ self autoRaiseTranscript value:transcript autoRaise.
     ].
 
     "Modified: / 29-08-2013 / 11:40:23 / cg"
@@ -19028,14 +19031,17 @@
 !AbstractSettingsApplication::ToolsSettingsAppl methodsFor:'queries'!
 
 hasUnsavedChanges
+    |transcript|
+
     (self
-	hasChangedAspectIn:(self aspects)
-	asComparedTo:currentUserPrefs) ifTrue:[^ true].
-
-    Transcript current isTextCollector ifTrue:[
-	(self transcriptBufferSize value  ~= Transcript current lineLimit) ifTrue:[^ true].
-	"/ now already in UserPreferences
-	"/ (self autoRaiseTranscript value  ~= Transcript current autoRaise) ifTrue:[^ true].
+        hasChangedAspectIn:(self aspects)
+        asComparedTo:currentUserPrefs) ifTrue:[^ true].
+
+    transcript := Transcript current.
+    transcript isTextCollector ifTrue:[
+        (self transcriptBufferSize value  ~= transcript lineLimit) ifTrue:[^ true].
+        "/ now already in UserPreferences
+        "/ (self autoRaiseTranscript value  ~= transcript autoRaise) ifTrue:[^ true].
     ].
     ^ false.
 
@@ -19045,10 +19051,10 @@
 !AbstractSettingsApplication class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.593 2015-03-02 10:17:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.594 2015-03-02 12:13:45 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.593 2015-03-02 10:17:17 cg Exp $'
-! !
-
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractSettingsApplication.st,v 1.594 2015-03-02 12:13:45 cg Exp $'
+! !
+