Metaclass.st
changeset 18890 891bd56371a6
parent 17678 ce74cee00020
child 18896 00f8282955aa
child 19115 64965ee348b9
--- a/Metaclass.st	Thu Nov 12 14:17:03 2015 +0100
+++ b/Metaclass.st	Fri Nov 13 11:38:54 2015 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1988 by Claus Gittinger
 	      All Rights Reserved
@@ -828,6 +826,10 @@
     "Created: 15.10.1996 / 19:44:51 / cg"
 !
 
+sharedPools
+    ^ myClass sharedPools
+!
+
 soleInstance
     "return my sole class."
 
@@ -934,7 +936,7 @@
 !Metaclass class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Metaclass.st,v 1.217 2015-03-26 10:20:36 cg Exp $'
+    ^ '$Header$'
 ! !