--- a/Smalltalk.st	Thu Aug 10 12:20:11 2006 +0200
+++ b/Smalltalk.st	Thu Aug 10 13:07:57 2006 +0200
@@ -2173,13 +2173,15 @@
      2 entries: 1st: the best (longest) match
                 2nd: collection consisting of matching categories"
 
-    ^ DoWhatIMeanSupport classCategoryCompletion:aPartialCategory in:self
+    ^ DoWhatIMeanSupport classCategoryCompletion:aPartialCategory inEnvironment:self
 
     "
      Smalltalk classCategoryCompletion:'Sys'            
      Smalltalk classCategoryCompletion:'System'              
      Smalltalk classCategoryCompletion:'System-BinaryStorage' 
     "
+
+    "Modified: / 10-08-2006 / 13:06:34 / cg"
 !
 
 classNamed:aString
@@ -2313,7 +2315,7 @@
      2 entries: 1st: the best (longest) match
                 2nd: collection consisting of matching names"
 
-    ^ DoWhatIMeanSupport globalNameCompletion:aPartialGlobalName in:self
+    ^ DoWhatIMeanSupport globalNameCompletion:aPartialGlobalName inEnvironment:self
 
     "
      Smalltalk globalnameCompletion:'Arr'  
@@ -2322,8 +2324,8 @@
      Smalltalk globalnameCompletion:'*rray' 
     "
 
-    "Created: 24.11.1995 / 17:24:45 / cg"
-    "Modified: 3.4.1997 / 18:25:01 / cg"
+    "Created: / 24-11-1995 / 17:24:45 / cg"
+    "Modified: / 10-08-2006 / 13:05:39 / cg"
 !
 
 globalnameCompletion:aPartialGlobalName
@@ -2333,7 +2335,7 @@
 
     <resource:#obsolete>
     self obsoleteMethodWarning:'use #globalNameCompletion:'.
-    ^ DoWhatIMeanSupport globalNameCompletion:aPartialGlobalName in:self
+    ^ DoWhatIMeanSupport globalNameCompletion:aPartialGlobalName inEnvironment:self
 
     "
      Smalltalk globalnameCompletion:'Arr'  
@@ -2342,8 +2344,8 @@
      Smalltalk globalnameCompletion:'*rray' 
     "
 
-    "Created: 24.11.1995 / 17:24:45 / cg"
-    "Modified: 3.4.1997 / 18:25:01 / cg"
+    "Created: / 24-11-1995 / 17:24:45 / cg"
+    "Modified: / 10-08-2006 / 13:05:48 / cg"
 !
 
 hasNameSpaces
@@ -2454,13 +2456,15 @@
      2 entries: 1st: the best (longest) match 
                 2nd: collection consisting of matching protocols"
 
-    ^ DoWhatIMeanSupport methodProtocolCompletion:aPartialProtocolName in:self
+    ^ DoWhatIMeanSupport methodProtocolCompletion:aPartialProtocolName inEnvironment:self
 
     "
      Smalltalk methodProtocolCompletion:'doc'  
      Smalltalk methodProtocolCompletion:'docu' 
      Smalltalk methodProtocolCompletion:'documenta' 
     "
+
+    "Modified: / 10-08-2006 / 13:05:20 / cg"
 !
 
 numberOfGlobals
@@ -6857,5 +6861,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.731 2006-08-10 10:19:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.732 2006-08-10 11:07:57 cg Exp $'
 ! !