--- a/SystemEnvironment.st	Tue Feb 03 09:49:47 2015 +0100
+++ b/SystemEnvironment.st	Tue Feb 03 15:20:53 2015 +0100
@@ -20,6 +20,8 @@
 "
 "{ Package: 'stx:libbasic3' }"
 
+"{ NameSpace: Smalltalk }"
+
 Object subclass:#SystemEnvironment
 	instanceVariableNames:''
 	classVariableNames:''
@@ -335,7 +337,7 @@
 allKeysDo:aBlock
     "evaluate the argument, aBlock for all keys in the Smalltalk dictionary"
 
-    ^ self keysDo:aBlock
+    self keysDo:aBlock
 !
 
 allMethodCategories
@@ -533,10 +535,10 @@
 !SystemEnvironment class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/SystemEnvironment.st,v 1.1 2014-05-13 09:46:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SystemEnvironment.st,v 1.2 2015-02-03 14:20:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/SystemEnvironment.st,v 1.1 2014-05-13 09:46:00 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/SystemEnvironment.st,v 1.2 2015-02-03 14:20:53 cg Exp $'
 ! !