--- a/BrowserView.st	Fri Oct 13 16:01:29 2000 +0200
+++ b/BrowserView.st	Fri Oct 20 13:11:28 2000 +0200
@@ -12344,7 +12344,7 @@
                     ] do:[
 
                         rslt := actualClass compilerClass 
-                            compile:theCode asString
+                            compile:theCode asString withoutSeparators
                             forClass:cls
                             inCategory:cat 
                             notifying:codeView.
@@ -12393,8 +12393,7 @@
 "/        ]
 "/    ].
 
-    "Modified: / 10.2.2000 / 14:17:14 / cg"
-!
+    "Modified: / 10.2.2000 / 14:17:14 / cg"!
 
 setDoitActionForClass
     "tell the codeView what to do on doIt"
@@ -13702,6 +13701,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.639 2000-10-07 11:59:27 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.640 2000-10-20 11:11:28 stefan Exp $'
 ! !
 BrowserView initialize!