--- a/SharedPool.st	Mon Nov 03 12:20:32 2008 +0100
+++ b/SharedPool.st	Mon Nov 03 12:22:46 2008 +0100
@@ -68,7 +68,7 @@
 
     | aSymbol binding |
 
-self halt:'unfinished implementation'.
+    self shouldImplement.       "not yet finished"
     aSymbol := varName asSymbol.
 
     "First look in classVar dictionary."
@@ -93,8 +93,8 @@
 classBindingOf: varName
     "For initialization messages grant the regular scope"
 
-self halt:'unfinished implementation'.
-    ^super bindingOf: varName
+    self shouldImplement.       "not yet finished"
+    ^ super bindingOf: varName
 !
 
 includesKey:aSymbol
@@ -138,5 +138,5 @@
 !SharedPool class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.5 2008-01-25 10:25:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/SharedPool.st,v 1.6 2008-11-03 11:22:46 stefan Exp $'
 ! !