--- a/Smalltalk.st	Mon Jan 30 18:44:09 2006 +0100
+++ b/Smalltalk.st	Mon Jan 30 18:52:51 2006 +0100
@@ -2239,6 +2239,27 @@
     "Created: 11.10.1996 / 18:10:43 / cg"
 !
 
+keyIsClassVariableNameKey:aKey
+    |i|
+
+    i := aKey lastIndexOf:$:.
+    i ~~ 0 ifTrue:[
+        i > 1 ifTrue:[
+            (aKey at:(i-1)) == $: ifFalse:[
+                ^ true.
+            ].
+        ].
+    ].
+    ^ false.
+
+    "
+     self keyIsClassVariableNameKey:'foo::bar' 
+     self keyIsClassVariableNameKey:'foo:bar'  
+     self keyIsClassVariableNameKey:':bar'  
+     self keyIsClassVariableNameKey:'::bar'  
+    "
+!
+
 methodProtocolCompletion:aPartialProtocolName
     "given a partial method protocol name, return an array consisting of
      2 entries: 1st: the best (longest) match 
@@ -6606,5 +6627,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.706 2006-01-30 17:44:09 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.707 2006-01-30 17:52:51 cg Exp $'
 ! !