--- a/Tools__NewSystemBrowser.st	Fri Mar 16 21:28:39 2012 +0100
+++ b/Tools__NewSystemBrowser.st	Fri Mar 16 23:21:13 2012 +0100
@@ -54623,7 +54623,11 @@
 answer:(self currentNamespace)
 do:[
                             ("self canUseRefactoringSupport"
-                            (language isSmalltalk) and:[(Smalltalk at:cls theNonMetaclass name)==cls and:[cls programmingLanguage == language]]) ifTrue:[
+                             language isSmalltalk 
+                             and:[(Smalltalk at:cls theNonMetaclass name)==cls 
+                             and:[cls programmingLanguage == language
+                             and:[InteractiveAddMethodChange notNil]]]
+                            ) ifTrue:[
                                 "/ cg: Q: is the AddMethodChange prepared for languages ?
                                 change := InteractiveAddMethodChange compile:code in:cls classified:cat.
                                 change controller:codeView.
@@ -56193,11 +56197,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1733 2012-03-16 20:28:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1734 2012-03-16 22:21:13 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1733 2012-03-16 20:28:39 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1734 2012-03-16 22:21:13 stefan Exp $'
 !
 
 version_SVN