--- orig/compiler/STCompiler.st
+++ mod/compiler/STCompiler.st
@@ -117,6 +117,7 @@ evaluate: aSequenceNode parser: aParser
 
     cm := self new
 	class: UndefinedObject parser: aParser;
+	addPool: Namespace current;
 	visitNode: methodNode.
 
     ^nil perform: cm
@@ -150,6 +151,10 @@ compile: methodNode asMethodOf: aBehavio
 
 !STCompiler methodsFor: 'private'!
 
+addPool: aNamespace
+    symTable addPool: aNamespace
+!
+
 class: aBehavior parser: aParser
     destClass := aBehavior.
     symTable := STSymbolTable new.