--- a/NewSystemBrowser.st	Fri Jan 28 10:27:40 2011 +0100
+++ b/NewSystemBrowser.st	Fri Jan 28 10:29:50 2011 +0100
@@ -22283,12 +22283,12 @@
     |generator count dict className|
 
     "/ remove this a.s.a.p
-    (classes conform:[:cls | cls programmingLanguage isSmalltalk]) ifFalse:[
+    (classes conform:[:cls | |lang| lang := cls programmingLanguage. lang isSmalltalk or:[lang isSTXJavaScript]]) ifFalse:[
         Dialog warn:('Sorry.\\For now, this works only for Smalltalk classes.' withCRs).
         ^ self.
     ].
 
-    generator := CodeGeneratorTool new.
+    generator := classes first programmingLanguage codeGeneratorToolClass "CodeGeneratorTool" new.
     generator startCollectChanges.
 
     count := 0.
@@ -44800,11 +44800,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1501 2011-01-22 12:57:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1502 2011-01-28 09:29:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1501 2011-01-22 12:57:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/NewSystemBrowser.st,v 1.1502 2011-01-28 09:29:50 cg Exp $'
 ! !
 
 NewSystemBrowser initialize!