--- a/CodeGeneratorTool.st	Wed Jul 13 13:25:56 2005 +0200
+++ b/CodeGeneratorTool.st	Wed Jul 13 14:52:00 2005 +0200
@@ -1549,7 +1549,7 @@
         emailAddress := loginName , '@' , hostName.
 
         "/ ugly; should ask the class for that    
-        metaClass isJavaScriptClass ifTrue:[
+        metaClass isJavaScriptMetaClass ifTrue:[
             code :=
 'function documentation() {
 /*
@@ -1858,5 +1858,5 @@
 !CodeGeneratorTool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.33 2005-07-06 10:14:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/CodeGeneratorTool.st,v 1.34 2005-07-13 12:52:00 cg Exp $'
 ! !