--- a/TabListEditor.st	Fri Sep 30 16:47:59 2016 +0200
+++ b/TabListEditor.st	Fri Sep 30 16:48:16 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
               All Rights Reserved
@@ -11,6 +13,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ResourceSpecEditor subclass:#TabListEditor
 	instanceVariableNames:'listOfTabs'
 	classVariableNames:''
@@ -1641,17 +1645,15 @@
 
     |cls code spec category package mthd list|
 
-    (specClass notNil and:[specSelector notNil])
-    ifFalse:
-    [
-        ^self doSaveAs
+    (specClass notNil and:[specSelector notNil]) ifFalse:[
+        ^ self doSaveAs
     ].
 
     cls := self resolveName: specClass.
 
     listOfTabs isEmpty ifTrue:[^self information:'No tab list defined!!'].
 
-    spec  := WriteStream on:String new.
+    spec  := WriteStream on:''.
     list := Array new:(listOfTabs size).
     listOfTabs keysAndValuesDo:[:i :el|list at:i put:(el literalArrayEncoding)].