--- a/Tools__CodeView2.st	Tue Dec 06 18:44:04 2011 +0100
+++ b/Tools__CodeView2.st	Wed Dec 07 16:40:54 2011 +0100
@@ -696,9 +696,11 @@
     (v := self methodHolder value) notNil ifTrue:[^v programmingLanguage].
     (v := self classHolder value) notNil ifTrue:[^v programmingLanguage].
 
-    ^SmalltalkLanguage instance
-
-    "Modified: / 17-06-2011 / 12:36:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "/No, no default language, please.
+    "/^SmalltalkLanguage instance
+    ^nil
+
+    "Modified: / 07-12-2011 / 16:38:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 language: newValue
@@ -3099,11 +3101,11 @@
 !CodeView2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.39 2011-11-18 14:06:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.40 2011-12-07 15:40:54 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.39 2011-11-18 14:06:35 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__CodeView2.st,v 1.40 2011-12-07 15:40:54 vrany Exp $'
 !
 
 version_SVN