--- a/LookupKey.st	Fri Mar 25 06:29:08 2016 +0000
+++ b/LookupKey.st	Sat Mar 26 07:56:10 2016 +0000
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libbasic' }"
 
+"{ NameSpace: Smalltalk }"
+
 Magnitude subclass:#LookupKey
 	instanceVariableNames:'key'
 	classVariableNames:''
@@ -74,22 +76,22 @@
 !LookupKey methodsFor:'comparing'!
 
 < aKey
-    "return true, if the receivers KEY is less 
-     than the arguments key. The argument must be a kind of lookupKey"
+    "return true, if the receiver's Key is less than the argument's key. 
+     The argument must be a kind of lookupKey"
 
     ^ key < aKey key
 !
 
 = aLookupKey
-    "return true if the receivers key equals the arguments key.
+    "return true if the receiver's key equals the argument's key.
      The argument must be a kind of lookupKey."
 
     ^ (self species == aLookupKey species) and:[key = aLookupKey key]
 !
 
 > aKey
-    "return true, if the receivers KEY is greater 
-     than the arguments key. The argument must be a kind of lookupKey"
+    "return true, if the receiver's Key is greater than the argument's key. 
+     The argument must be a kind of lookupKey"
 
     ^ key > aKey key
 !
@@ -131,10 +133,9 @@
     key printOn:aStream.
 ! !
 
-
 !LookupKey class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/LookupKey.st,v 1.12 2014-07-10 12:24:01 cg Exp $'
+    ^ '$Header$'
 ! !