Index: Core/Utilities/Id.st
===================================================================
--- Core/Utilities/Id.st	(revision 1402)
+++ Core/Utilities/Id.st	(working copy)
@@ -4,21 +4,37 @@
     <comment: nil>
     <category: 'Iliad-Core-Utilities'>
 
-    Id class >> defaultSize [
-	<category: 'defaults'>
-	^32
-    ]
+    Id class [
 
-    Id class >> new [
-	<category: 'instance creation'>
-	^self new: self defaultSize
-    ]
+        | table |
 
-    Id class >> new: anInteger [
-	<category: 'instance creation'>
-	^(self basicNew: anInteger)
-	    initialize;
-	    yourself
+        defaultSize [
+            <category: 'defaults'>
+            ^32
+        ]
+
+        new [
+            <category: 'instance creation'>
+            ^self new: self defaultSize
+        ]
+
+        new: anInteger [
+            <category: 'instance creation'>
+            ^(self basicNew: anInteger)
+                initialize;
+                yourself
+        ]
+
+        table [
+            <category: 'accessing'>
+            ^ table ifNil: [ table := self defaultTable ]
+        ]
+
+        defaultTable [ 
+            <category: 'defaults'>
+            ^($a to: $z) , ($0 to: $9) , (Array with: $_ with: $-) 
+        ]
+    
     ]
 
     initialize [
@@ -31,7 +47,7 @@
 
     table [
 	<category: 'accessing'>
-	^($a to: $z) , ($0 to: $9) , (Array with: $_ with: $-)
+	^ self class table
     ]
 
     printOn: aStream [