--- a/SharedPool.st	Sun Aug 08 14:38:42 2010 +0200
+++ b/SharedPool.st	Sun Aug 08 14:46:20 2010 +0200
@@ -82,16 +82,18 @@
 
     "First look in classVar dictionary."
     binding := self classPool bindingOf: aSymbol.
-    binding ifNotNil:[^binding].
+    binding notNil ifTrue:[^binding].
 
     "Next look in shared pools."
     self sharedPools do:[:pool |
-            binding := pool bindingOf: aSymbol.
-            binding ifNotNil:[^binding].
+        binding := pool bindingOf: aSymbol.
+        binding notNil ifTrue:[^binding].
     ].
 
     "subclassing and environment are not preserved"
     ^nil
+
+    "Modified: / 08-08-2010 / 14:46:09 / cg"
 !
 
 bindingsDo: aBlock
@@ -147,9 +149,9 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.8 2009-10-12 19:09:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.9 2010-08-08 12:46:20 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.8 2009-10-12 19:09:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.9 2010-08-08 12:46:20 cg Exp $'
 ! !