--- a/BrowserView.st	Mon Jun 15 16:16:19 1998 +0200
+++ b/BrowserView.st	Mon Jun 15 17:26:06 1998 +0200
@@ -4882,7 +4882,7 @@
 ' , '    poolDictionaries: ''''
 ' , '    category: ''').
         cat notNil ifTrue:[
-            s nextPutAll: cat
+            cat printWithQuotesDoubledOn:s
         ].
         s nextPutAll: ''''
     ].
@@ -4907,7 +4907,7 @@
     ^ s contents
 
     "Created: / 23.12.1996 / 12:46:31 / cg"
-    "Modified: / 5.3.1998 / 02:45:52 / cg"
+    "Modified: / 15.6.1998 / 17:23:05 / cg"
 !
 
 doClassMenu:aBlock
@@ -11503,6 +11503,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.413 1998-05-29 17:10:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.414 1998-06-15 15:26:06 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Mon Jun 15 16:16:19 1998 +0200
+++ b/BrwsrView.st	Mon Jun 15 17:26:06 1998 +0200
@@ -4882,7 +4882,7 @@
 ' , '    poolDictionaries: ''''
 ' , '    category: ''').
         cat notNil ifTrue:[
-            s nextPutAll: cat
+            cat printWithQuotesDoubledOn:s
         ].
         s nextPutAll: ''''
     ].
@@ -4907,7 +4907,7 @@
     ^ s contents
 
     "Created: / 23.12.1996 / 12:46:31 / cg"
-    "Modified: / 5.3.1998 / 02:45:52 / cg"
+    "Modified: / 15.6.1998 / 17:23:05 / cg"
 !
 
 doClassMenu:aBlock
@@ -11503,6 +11503,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.413 1998-05-29 17:10:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.414 1998-06-15 15:26:06 cg Exp $'
 ! !
 BrowserView initialize!