--- a/TabListEditor.st	Mon Sep 27 14:04:03 1999 +0200
+++ b/TabListEditor.st	Mon Sep 27 14:42:24 1999 +0200
@@ -1191,7 +1191,7 @@
 doSave
     "generate code for class and instance
     "
-    |cls code spec category mthd|
+    |cls code spec category mthd list|
 
     (specClass notNil and:[specSelector notNil])
     ifFalse:
@@ -1204,7 +1204,10 @@
     listOfTabs isEmpty ifTrue:[^self information:'No tab list defined!!'].
 
     spec  := WriteStream on:String new.
-    UISpecification prettyPrintSpecArray:(listOfTabs literalArrayEncoding) on:spec indent:5.
+    list := Array new:(listOfTabs size).
+    listOfTabs keysAndValuesDo:[:i :el|list at:i put:(el literalArrayEncoding)].
+
+    UISpecification prettyPrintSpecArray:list on:spec indent:5.
     spec := spec contents.
 
     "/ if that method already exists, do not overwrite the category