--- a/SmallSenseService.st	Thu Apr 05 13:51:06 2012 +0100
+++ b/SmallSenseService.st	Thu Apr 19 09:02:50 2012 +0100
@@ -147,8 +147,10 @@
 !SmallSenseService methodsFor:'change & update'!
 
 sourceChanged:force
+    | lang |
+
     rules isNil ifTrue:[ ^ self ].
-    codeView language isSmalltalk ifFalse:[ ^ self ].
+    ((lang := codeView language) isNil or:[lang isSmalltalk not]) ifTrue:[ ^ self ].
     rules resetResult.
     highlighter reset.
     super sourceChanged:force.
@@ -463,7 +465,7 @@
 !SmallSenseService class methodsFor:'documentation'!
 
 version_SVN
-    ^ '$Id: SmallSenseService.st 7970 2012-04-04 16:42:36Z vranyj1 $'
+    ^ '$Id: SmallSenseService.st 7983 2012-04-19 08:02:50Z vranyj1 $'
 ! !
 
 SmallSenseService initialize!