--- a/BrowserView.st	Wed Dec 06 15:27:34 2000 +0100
+++ b/BrowserView.st	Wed Dec 06 19:40:31 2000 +0100
@@ -12467,7 +12467,7 @@
                         ]
                     ] do:[
 
-                        rslt := NewCompiler "/ actualClass compilerClass 
+                        rslt := actualClass compilerClass 
                             compile:theCode asString withoutSeparators
                             forClass:cls
                             inCategory:cat 
@@ -13826,6 +13826,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.652 2000-12-06 14:27:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.653 2000-12-06 18:40:31 cg Exp $'
 ! !
 BrowserView initialize!